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1000,  a  minicomputer.  CALAP  was  reprogrammed  in  an  Artificial  Intelligence  (AI) 
language  called  DUCK.  DUCK  is  a  Logic  Programming  Language  developed  at  Yale 
by  Prof.  Drew  McDermott.  CALAP  has  previously  been  translated  into  another  AI 
language  called  0PS5.  The  experience  of  translating  CALAP  to  DUCK  is  docu¬ 
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I.  Introduction 

~~ — An  expert  advisor  program  named  CALAP,  (Computer  Aided 
Landform  Analysis  Program),  was  developed  by  Dr.  Robert 
Lelghty,  working  at  USAETL.  The  original  program  was 
developed  in  FORTRAN  on  an  HP-1000,  a  small  minicomputer. 
CALAP  was  reprogrammed  in  an  Artificial  Intelligence  (AI) 
language  called  DUCK  [1].  DUCK  is  a  Logic  Programming 

Language  developed  at  TALE  by  Prof.  Drew  McDermott.  CALAP 

f  2.) 

has  previously  been  translated  into  another  AI  language 
called  0PS5  C  3  3  -  The  experience  of  translating  CALAP  to 

M 

DUCK  will  be  documented.  This  report  is  similar  to-£33-and 
the  DUCK  version  of  CALAP  was  deliberately  implemented  in  a 
manner  as  close  to  0PS5  CALAP  as  possible  so  they  could  be 

easily  compared.  In  particular,  DUCK  CALAP  was  Implemented 

a  '  O"  -  J 

using  ^"forward  chaining"  (explained  in  Section  II)  because 

0PS5  is  a  forward  production  system.  The  issues  of  how  an 
intelligent  advisor  program  can  or  should  explain  its 
actions  or  reasoning  will  be  discussed.  \  rjJ. 

Deductive  retrieval  and  logic  programming  systems  are 
designed  to  facilitate  the  expression  of  problems  requiring 
inference,  problem  solving,  plan  generation,  and  retrieval 
of  facts  from  databases,  in  a  formal  language.  The  systems 
embody  algorithms  (called  resolution,  or  unification)  that 
enable  the  computer  to  treat  logical  inference  [4]  as  a 
computation,  thereby  "mechanizing"  the  process  of  formal 
reasoning. 


WH WM.lTWi.W»!!WM MV 'J.TPJ.^1  |U,ij  jj Pjmjyj ^ p, yu yjpip,  ji  nnm w ... , ,  <x^^i9f9r 
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The  mechanization  of  problem  solving  began  in  earnest 
with  the  discovery  of  the  resolution  algorithm  [5]  by  Alan 
Robinson  in  the  1960s.  This  fusion  of  mathematical  logic 
and  computer  science  led  to  the  development  of  many  computer 
programs.  For  example,  Micro-PLANNER  and  CONNIVER  were 
developed  at  NIT  and  QA4  and  QLISP  were  developed  at 
STANFORD  in  the  early  1970s.  Similar  efforts  were  underway 
in  Europe. 

Recently,  the  notion  of  programming  in  logic  [6]  has 
been  gaining  favor.  One  advantage  of  logic  programming  is 
tnat  it  is  (or  is  closer  to)  a  non-procedural 
representation.  This  means  that  logic  expresses  the  nwhatn 
(i.e.  what  needs  to  happen  or  be  true)  of  a  process  without 
necessarily  expressing  the  "how"  (i.e.  which  order  things 
should  be  done  or  proven)  of  a  process.  Now  a  programmer  is 
free  to  pursue  the  true  structure  of  a  problem  without 
worrying  about  the  procedural  details.  There  are  two 
disadvantages.  One,  people  usually  do  better  with 
procedural  representations,  so  they  must  be  retrained  to  be 
effective  logic  programmers.  Two,  since  the  programmer  does 
not  specify  the  "how"  of  a  process,  the  logic  programming 
system  does.  There  are  many  Inefficient  ways  to  generate  a 
proof.  Many  problems  have  very  fast  procedural  solutions, 
but  very  slow  non-procedural  solutions.  All  the  logic 
programming  systems  allow  escapes  into  some  procedural 
language  to  eliminate  such  gross  inefficiencies.  Still,  the 
elegance  of  the  "non-procedural"  description  has  been 
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marred.  See  [7]  for  a  discussion  of  some  of  the  problems 
with  simple  logic  programming  systems. 

All  logic  programming  systems  implement  a  (usually 
in-core)  relational  database  to  store  the  predicates 
associated  with  atomic  assertions  (facts)  and  theorems 
(rules).  The  use  and  availability  of  a  relational  database 
greatly  simplifies  the  descriptions  of  and  solutions  to  many 
problems. 

Another  advantage  of  using  a  logic  programming  language 
to  construct  a  system  is  that  a  rather  natural  modularity 
results.  Since  the  description  is  non-procedural,  any 
particular  piece  of  knowledge  tends  to  be  defined  only  once. 
It  is  the  logic  programming  system's  responsibility  to 
access  the  knowledge  when  necessary.  This  modularity  means 
that  it  is  much  easier  to  debug  a  logic  programming  system 
than  a  system  written  in  a  sequential  language  because  a 
change  need  only  be  made  once,  instead  of  in  all  the 
different  places  a  particular  fact  could  be  used. 

Another  advantage  of  logic  programming  is  that  the 
definition  of  a  single  concept  may  be  equivalent  to  several 
function  definitions  in  traditional  languages.  For  example, 
in  LISP,  APPEND  has  two  arguments,  each  a  list  and  returns  a 
single  list  that  is  the  two  lists  concatenated  together. 
The  equivalent  predicate  in  logic  would  have  three  arguments 
corresponding  to  the  two  input  arguments  and  the  answer. 
(Predicates  never  return  an  answer;  they  are  true.)  In 


Page  4 


LISP,  (append  ’(1)  '(2))  returns  ’(1  2).  In  logic,  the 
query  "(append  *(1)  «(2)  ?x)"  returns  x  r  '(1  2).  But  also, 
the  query  "(append  '(1)  ?x  '(1  2))"  returns  x  r  '(2).  The 
query  "(append  ?x  ?y  '(1  2))"  would  return  the  answers  x  = 
'()  and  y  =  ’(1  2),  x  =  '(1)  and  y  s  '(2),  and  x  s  '(1  2) 
and  y  =  '().  Logic  programs  tend  to  be  very  compact  since 
the  predicates  can  be  used  in  different  ways. 
Unfortunately,  certain  patterns  of  variables  can  result  in 
extremely  inefficient  computations. 
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II.  Logic  Programming  Languages 

The  three  most  prominent  logic  programming  languages 
are  LOGLISP  [8],  PROLOG  [9,10],  and  DUCK.  Alan  Robinson's 
research  has  lead  to  the  development  of  LOGLISP,  a  system 
that  integrates  logic  and  LISP  into  one  environment.  PROLOG 
implements  a  computationaly  extended  logic  programming 
system  with  a  control  strategy  that  is  quite  efficient  in 
most  situations.  Drew  McDermott's  research  (extensions  of 
micro-PLANNER  and  CONNIVER)  has  lead  to  the  development  of 
DUCK,  a  system  that  Integrates  first  order  logic, 
non-monotonlc  logic,  multiple  databases,  and  LISP  into  one 
environment. 

In  LOGLISP,  the  logic  programming  system  is  implemented 
as  a  library  of  LISP  routines  that  can  be  called  by  other 
LISP  routines.  Likewise,  logic  programming  constructs  are 
able  to  call  LISP  routines.  The  system  supports  a  single 
global  database  for  assertions  and  rules.  The  system  only 
supports  backward  chaining  theorems  (backward  vs.  forward 
chaining  will  be  discussed  under  DUCK).  The  system  has 
automatic  proof  explanation  features. 

PROLOG  is  usually  implemented  in  LISP  or  PASCAL.  Newer 
PROLOGS  allow  the  use  of  foreign  language  routines.  In 
principle,  there  is  one  global  database  and  only  backward 
chaining  theorems.  In  practice,  one  can  escape  the 
restrictions,  but  not  efficiently  or  elegantly. 


DUCK,  as  LOGLISP,  is  implemented  as  a  library  of  LISP 
routines.  As  in  LOGLISP,  LISP  functions  can  call  logic 
routines  and  logic  routines  (under  control  of  theorems)  can 
call  LISP  functions.  LISP  functions  can  be  called  during 
either  forward  or  backward  chaining;  this  will  be  explained 
shortly.  LISP  data  structures,  symbols,  lists,  etc.,  can  be 
represented  and  manipulated  in  DUCK.  LISP  arithmetic 
functions  are  directly  available  in  DUCK  theorems.  DUCK  is 
the  most  powerful  and  general  environment  of  the  three 
systems.  The  control  strategies  of  LOGLISP  and  PROLOG  (and 
MYCIN,  for  that  matter)  can  be  easily  simulated  in  DUCK,  but 
the  features  of  DUCK  cannot  be  simulated  in  the  other 
systems  without  a  great  deal  of  effort.  The  principal 
features  of  DUCK  will  be  enumerated. 

DUCK  supports  multiple  databases  through  a  facility 
called  "data  pools."  This  allows  hypothetical  universes  to 
be  constructed  and  deductions  to  be  performed  in  relative 
Isolation.  This  is  a  very  useful  feature  for  problem 
solving. 

DUCK  supports  both  forward  and  backward  chaining  of 
theorems.  If  A  is  true  and  A  :>  B  is  true,  then  one  can 
deduce  fi.  If  B  is  asserted  into  the  database  when  both  A 
and  A  =>  B  are  in  the  database,  then  we  say  that  B  was 
asserted  by  forward  chaining.  Forward  chaining  causes 
databases  to  increase  in  size.  For  example,  if  B  ;>  C  had 
been  in  the  database,  the  C  would  also  have  been  asserted, 
etc.  If  we  queried  the  database  about  B,  the  system  would 
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respond  that  B  was  true  because  it  would  be  in  the  database. 
With  backward  chaining,  B  would  not  have  been  asserted  into 
the  database.  Instead,  when  we  queried  the  database  about 
B,  it  would  look  for,  but  not  find  B.  It  would  lookup  all 
the  theorems  that  have  B  as  a  consequent  and  back  chain  on 
the  antecedents.  In  our  example,  the  system  would  find  A  => 
B  and  back  chain  on  A.  A  is  in  the  database,  therefor  B  is 
true.  Likewise,  if  B  s>  C  is  in  the  database,  then  a  query 
about  C  will  succeed  because  C  is  true  if  B  is,  and  B  is 
true  if  A  is,  and  A  is  true.  Backward  chaining  is  a  search 
process  that  takes  time  and  uses  temporary  space.  Forward 
chaining  takes  very  little  time  but  uses  permanent  space. 
This  is  the  classic  space/time  tradeoff.  DUCK  gives  the 
programmer  the  choice  of  how  theorems  are  chained.  PROLOG 
and  LOGLISP  only  use  backward  chaining. 

DUCK  uses  data  dependencies  to  implement  a  reason 
maintenance  system.  The  system  uses  the  data  dependencies 
to  remember  that,  for  example,  B  is  true  because  both  A  and 
A  s>  B  are  true.  B  depends  on  A  and  A  =>  B.  DUCK  uses  data 
dependencies  to  maintain  internal  consistency.  If  either  A 
or  A  =>  B  is  erased  (and  there  is  no  other  independent 
support  for  B) ,  then  DUCK  would  erase  B  (and  any  consequents 
that  follow  from  B) .  This  enables  a  DUCK  programmer  to  do 
provisional  reasoning  by  asserting  and  erasing  predicates 
while  DUCK  takes  care  of  the  bookkeeping  necessary  to 
maintain  consistency. 


■V-Vv.V/’ 
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DUCK  supports  common-sense  reasoning  by  handling 
exceptions.  It  is  often  the  case  that  a  rule  is  true  99 
percent  of  the  time,  but  that  there  are  exceptions.  Cars 
have  four  wheels;  professors  have  PhD.  degrees;  are 
examples.  If  one  has  a  1000  different  cars  (998  of  which 
have  4  wheels),  one  does  not  want  to  declare  1000  "auton 
predicates  (e.g.  (auto  chevy)),  998  Bhas-4-wheelsB 
predicates,  and  2  "not  has-4-wheels"  predicates.  DUCK 
allows  you  to  declare  the  1000  "auto"  predicates,  the  2  "not 
has-4-wheelsB  predicates,  and  the  general  rule  that 
(has-4-wheels  ?x)  is  true  for  ?x  if  (auto  ?x)  is  true  and 
(not  (has-4-wheels  ?x))  is  not  present  in  the  database.  The 
single  common-sense  rule  saves  us  998  extra  explicit 
assertions. 

DUCK  supports  non-monotonio  reasoning.  In  pure  first 
order  predicate  calculus,  one  can  deduce  a  fact  from  the 
explicit  existence  of  another  fact  or  its  negation.  One 
cannot  deduce  a  fact  from  the  absence  of  another  fact. 
Also,  any  fact  that  is  deduced  is  expected  to  be 
"timelessly"  true.  You  cannot  deduce  a  person's  Income  or 
weight  because  they  can  change  depending  on  what  is  in  the 
database.  Almost  any  interesting  problem  requires  that  such 
things  be  computed.  DUCK  allows  a  system  to  react  to  the 
presence  and  absence  of  predicates  in  the  database  through 
pseudo-predicates  with  names  like  THNOT,  THC0ND,  THALL,  and 
CONSISTENT,  (thnot  ?x),  for  example,  succeeds  when  ?x  fails 
to  unify  with  anything  in  the  database. 


DUCK  supports  syntactic  data-type  checking  of 
predicates.  DUCK  has  an  abstract  data  typing  facility  that 
helps  to  keep  errors  out  of  the  database.  For  example,  a 
data  type  VEHICLE  can  be  declared  and  car,  truck,  and  tank 
can  all  be  declared  to  be  VEHICLES.  If  we  declare  the 
predicate  nownsn  to  take  one  argument  that  is  a  VEHICLE, 
then  DUCK  will  happily  accept  the  assertion  (owns  truck). 
DUCK  will  complain  about  (owns  trunk),  (owns  motorcycle), 
and  (owes  car)  because  trunk  is  a  misspelling  of  truck, 
motorcycle  was  not  declared  to  be  a  VEHICLE,  and  "owes"  is 
an  undeclared  predicate,  respectively.  Syntactic  predicate 
checking  is  extremely  important  when  a  practical  system  is 
being  developed. 

DUCK  supports  a  good  expert  system  debugging 
environment.  There  are  special  editors  for  modlfing  atomic 
assertions,  theorems,  and  LISP  functions.  There  is  a 
workspace  manager  to  help  users  save  files  containing 
modified  functions  and  theorems.  There  is  general  graph 
walking  facility  that  allows  users  to  traverse  proofs  and 
data  dependency  networks.  It  is  possible  to  ask  "why”  any 
result  is  believed.  This  is  useful  in  searching  for  an 
Incorrect  theorem  that  allowed  a  false  result  to  be 
generated.  If  a  result  cannot  be  proven,  a  user  can  ask  the 
system  "why  not"  and  be  supplied  with  theorems  that  could 
have  been  used  to  generate  the  result  plus  the  individual 
subgoals  associated  with  those  theorems  that  were  blocked. 
This  enables  the  user  to  find  and  edit  the  theorem  that  was 


III.  The  Structure  of  CALAP 

The  FORTRAN  version  of  CALAP  displays  two  different 
kinds  of  structure.  The  first  kind  of  structure  is  an 
artifact  of  implementing  the  system  on  a  small  outdated 
computer  with  "overlay"  memory  management  rather  than 
virtual  memory  management.  The  module  structure  of  CALAP  is 
defined  by  the  separate  modules  CALAP,  XCAPI,  EBSEC,  REGA, 
REGAS,  and  DETA  that  call  each  other  as  overlays.  Figure  1. 
illustrates  this  overlay  structure. 


Figure  1:  Overlay  Structure  of  CALAP 

The  second  kind  of  structure  describes  "what"  CALAP 
does,  rather  than  "how".  Figure  2.  shows  the  functional 
(real)  structure  of  CALAP. 
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Establish  location  of  Study-Area 
and  surrounding  Study-Region 


Answer  general  questions  about 
Landform  Analysis 


Gather  Information  about 
Study-Area  and  Study-Region 


Delineate  expected  landforms 
In  Study-Area 


Produce  summary  Information  on 
Study-Area  and  Study-Region 


Figure  2:  Structure  of  CALAP 


In  general,  a  task  can  be  described  procedurally  or 
non-procedurally.  A  non-procedural  description  explains 
"what"  is  to  happen.  A  procedural  description  explains 
whow"  a  process  occurs  or  "when”  things  are  expected  to 
occur.  A  pure  logic  programming  description  of  CALAP  would 
be  non-procedural  description.  The  DUCK  CALAP  system  that 
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was  written  is  both  a  procedural  and  a  non-procedural 
description.  The  theorems  or  rules  are  defined  and  called 
in  a  non-procedural  way.  The  consequents  of  some  theorems, 
however,  are  LISP  functions  that  perform  tasks  procedurally. 


The  FORTRAN  version  of  CALAP  is  a  completely  procedural 
description.  The  0PS5  version  of  CALAP  appears  to  be  a 
non-procedural  description,  but  in  reality  the  knowledge  of 
the  "conflict  resolution  strategy"  leads  0PS5  programmers  to 
construct  very  procedural  systems. 

FORTRAN  is  sequential  programming  language.  Unless  one 
constructs  a  control  program,  (that  essentially  mimics  the 
LISP  environment),  the  intelligence  of  the  program  lies  in 
the  order  of  the  program  statements,  as  the  expert  wrote  it. 
If  the  program  is  Implementing  a  decision  tree,  then  this 
tree  must  be  linearized,  often  with  great  harm  to  the 
understandibility  of  the  program.  Such  a  program  may  be 
very  fast  since  the  "intelligence"  is  hard  coded  in-place. 
On  the  other  hand,  such  systems  are  often  hard  to  maintain 
or  improve  because  the  knowledge  is  not  stored  modularly, 
but  can  be  spread  all  over  the  program. 


IV.  DUCK  Programming 


DUCK,  as  other  logic  programming  languages,  actively 
encourages  modular  program  development.  The  basic  way  a 
DUCK  system  works  is  that  a  set  of  predicates,  that  describe 
the  initial  conditions,  are  asserted  into  a  database. 
Theorems  representing  knowledge  about  the  domain  also  reside 
in  the  database.  A  control  program,  usually  written  in 
LISP,  controls  the  processing.  It  asserts  facts  into  the 
database  and  fetches  information  from  the  database.  It  uses 
the  fetched  information  to  determine  the  appropriate 
processing.  The  modification  of  the  database  by  the  control 
program  and  theorems  allows  the  system  to  transform  its 
understanding  of  the  problem.  The  control  program  or 
theorems  with  LISP  bodies  can  request  more  Information  from 
the  user  and  assert  the  responses  into  the  database  to 
further  the  process  of  understanding.  When  the  desired 
result  has  been  generated,  the  system  stops.  The  user  can 
obtain  an  explanation  of  the  result. 

In  any  real  task,  there  exist  some  subtasks  that  can  be 
performed  in  parallel  or  are  conditionally  performed  and 
other  subtasks  that  must  be  performed  sequentially.  As  you 
would  expect,  DUCK  is  an  excellent  vehicle  for  the  parallel 


or  conditional 

subtasks  while 

FORTRAN  does 

well 

with 

the 

sequential . 

Since  DUCK  allows  theorems 

to 

call 

LISP 

functions  and 

LISP  functions 

to  perform  deductions, 

DUCK 

also  performs  sequential 

tasks  well 

by 

using 

LISP 

constructs 


Now  some  of  the  standard  tools  used  to  construct  a  DUCK 
system  will  be  described. 

A  legal  action  for  a  theorem  is  to  call  a  LISP 
function.  This  LISP  function  can  create  new  assertions,  or 
interrogate  knowledge-bases,  or  perform  specialized  input  or 
output  functions.  In  the  case  of  DUCK  CALAP,  special 
routines  have  been  written  for  user  interface.  Many  DUCK 
CALAP  questions  have  only  yes/no  answers.  Initially,  a 
question  such  as  "are  there  tidal  rivers  in  the  study  area?" 
will  not  have  been  asked  and  DUCK  CALAP  represents  this  by 
the  absence  of  an  (answer  s-a-tidal-river  t/nll)  assertion 
in  the  database.  DUCK'S  non-monotonic  features  are  used  to 
determine  the  absence  of  the  predicate.  There  is  a  LISP 
routine  name  "user"  that  asserts  (answer  s-a-tidal-river  t) 
if  the  user's  response  to  the  question  was  any  of  yes,  y,  t, 
true,  ok,  etc.  Otherwise,  (answer  s-a-tidal-river  nil) 
would  be  asserted.  An  answer  predicate  will  have  no 
justifiers,  if  the  user  supplied  the  answer.  Otherwise,  the 
predicate  will  have  the  name  of  the  theorem  that  asserted  it 
as  a  Justifier. 

Another  LISP  function  named  "display"  allows  list 
representations  of  slightly  modified  FORTRAN  format 
statements  to  be  printed  out  at  the  terminal.  Since  so  much 
of  CALAP 's  function  is  to  supply  information  to  the  user, 
this  LISP  function  greatly  simplified  the  CALAP  conversion. 
Note  also  that  these  messages  are  an  example  of  a  database 
of  knowledge  that  is  not  stored  in  the  assertlonal  database. 


DUCK  is  well  suited  for  conditional  Information  flows, 
i.e.  if  this  is  true,  then  that  is  true;  if  this  and  that 
is  true,  then  ...  is  true  (or  false),  etc.  You  just  create 
theorems  with  the  necessary  antecedents  and  consequents. 
What  if  you  have  three  simple  if-then  statements  that  must 
be  executed  in  a  particular  order?  It*s  simple  in  FORTRAN. 
In  DUCK,  you  would  use  a  LISPRULE  instead  of  a  RULE.  A  RULE 
statement  asserts  a  theorem  into  the  DUCK  database.  A 
LISPRULE  statement  asserts  a  theorem  whose  body  is  LISP  code 
into  the  DUCK  database.  The  LISP  body  can  assert  facts  and 
theorems  into  the  DUCK  database  in  any  necessary  order.  It 
can  also  access  the  DUCK  database  and  other  databases  to 
determine  what  to  do.  Likewise,  looping  and  other  forms  of 
sequential  behavior  can  be  Implemented. 

Looping,  conditional  sequencing,  and  sequential  control 
structures  were  used  extensively  during  the  implementation 
of  DUCK  CALAP.  For  example,  DUCK  CALAP  has  a  number  of  menu 
loops  where  the  user  is  shown  a  menu  and  can  choose  which 
item  he  would  like  to  see  next.  The  user  can  continue  to 
get  Information  until  he  types  the  item  that  stops  the  loop. 
An  example  of  a  menu  loop,  a  simplification  of  DUCK  code 
that  occurs  in  file  ebsec.l,  follows. 
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(llsprule  ebsec-rule  (goal  ebsec)  -> 

(for-f irst-ans  (fetch  '(study-region  7s  ?p)) 

(display  'ebsec-kickoff-msg  (list  ?s  ?p)) 

) 

(prog  Cal  a2] 

top  ( for-f irst-ans  (fetch  '(study-region  ?s  ?p)) 

(display  'ebsec-menu-msg  (list  ?s  7p)) 

) 

(:s  al  (read)) 

(cond  [(memq  al  '(1  p  physiography  phy  pg)) 

(display  'ebsec-physiography-msg  nil)] 

[(memq  al  '(2  If  landforms)) 

(display  ' ebsec-landform-msg  nil)] 

[(memq  al  *(3  g  geology  s  soils  geology/soils)) 
(display  ' ebsec-geology-msg  nil)] 


[(memq  al  '(9  e  exit)) 

(return  (premiss  '(done  stop)))] 

[(memq  al  '(0  ok))  (return)] 

[t  (msg  t  "Illegal  Answer,  " 

"Please  try  again"  t) 

(go  top)] 

) 

more  (display  'ebsec-more-msg  nil) 

(:s  a2  (read)) 

(cond  [(memq  a2  '(1  detail  more  m  d)) 

(display  'ebsec-physiography-more-msg  nil) 
(go  top)] 

[(memq  a2  '(2  another  a))  (go  top)] 

[(memq  a2  '(3  oontinue  c  go  g  go-on)) 

(return) ] 

[t  (msg  t  "Sorry:  "  a2 

"  is  not  a  legal  response" 
t  "Please  respond  properly"  t) 

(go  more)] 

) 

) 

(premiss  '(done  ebsec)) 

) 

(setq  ebsec-kickoff-msg 

'(t  t  10  "Your  study  area  is  in  the  "  (o  1)  "  of"  t 
5  "the  "  (o  2)  "  Physiographic  Province.  The"  t 
5  "following  menu  will  provide  regional  background”  t 
5  "information  on  this  physiographic  section  if  you"  t 
5  "desire."  t  t)) 
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(setq  ebsec-menu-msg 

I(t  »  t 

5  "Do  you  want  information  on  any  of"  t  t 
10  "1  -  Physiography”  t 

10  "2  -  Landforms"  t 

10  "3  -  etc.”  t 


10  "9  -  ****Terminate  Program****”  t 

10  "0  -  Complete  regional  background  phase”  t  t 

5  "Please  type  your  selection  number"  t  t)) 

(setq  ebsec-physiography-msg 
'(t  t  5  "PHYSIOGRAPHY  OF  THE  EMBAYED  SECTION,"  t 

5  "ATLANTIC  COASTAL  PLAIN  PHYSIOGRAPHIC  PROVINCE"  t  t 
10  "The  Embayed  Section  of  the  Atlantic  Coastal  Plain"  t 
10  "a  submaturely  dissected  and  partly  submerged,”  t 
10  "terraced  coastal  plain."  t  t) ) 

(setq  ebsec-more-msg 
'(t  t  5  "Type:"  t 

10  "1  -  For  additional  information  in  this  category"  t 

10  "2  -  For  regional  background  information  in  a"  t 

10  "  different  category"  t 

10  "3  -  To  complete  your  regional  background"  t 

10  "  information  phase  and  proceed  with  regional"  t 

10  "  analysis"  t  t)) 


Further  examples  can  be  found  in  the  Appendix,  which  contains 
a  copy  of  DUCK  CALAP. 


V,  Computer  Explanation 

In  [2J,  two  different  schools  of  thought  about 
explanation  in  expert  systems  were  presented.  The  opinions 
of  the  schools  can  be  summarized. 

One  school  believes  that  predicate  calculus  should  be 
the  basic  knowledge  representation  language,  that  the 
conclusions  of  an  expert  system  should  be  logically  deduced 
by  Inference,  and  that  the  an  adequate  explanation  of  a 
conclusion  is  its  proof  (i.e.  the  ordered  list  of  facts 
(atomic  assertions)  and  rules  (theorems)  used  to  prove  the 
conclusion).  This  kind  of  explanation  facility  is  general, 
because  it  works  for  any  conclusion  in  any  domain.  Note 
that  the  explanation  is  in  the  vocabulary  of  the  system 
designer  or  expert,  rather  than  the  system  user.  See 
McDermott  and  Brooks  [11]  for  an  example  of  such  a  system. 

The  other  school  of  explanation  believes  that 
performing  expertly  is  very  different  from  explaining  expert 
behavior.  See  McDermott  [12].  The  argument  is  that  the 
process  of  adequately  explaining  the  actions,  reasons,  etc. 
of  an  expert  system  is  a  task  of  roughly  the  same  magnitude 
as  constructing  the  original  expert  system.  Adequate 
explanation  means  anticipating  the  questions  a  user  could 
ask  at  different  points  and  understanding  what  information 
the  user  really  wants  to  know.  How  this  information  is 
presented  may  depend  on  a  model  of  the  user's  understanding 
of  the  system  or  on  other  questions  he  has  asked  the  system. 
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In  this  school,  explanation  is  considered  an  expert  system 
in  itself,  requiring  all  the  knowledge  engineering  tools 
that  the  original  expert  system  found  useful. 

There  are  two  different  kinds  of  explanation,  user 
independent  and  user  dependent.  Predicate  calculus  based 
systems  at  least  have  user  Independent  explanation.  Many 
other  systems  do  not  even  have  that.  If  one  chooses  to 
implement  user  dependent  explanation,  then  it  can  be  added 
to  predicate  calculus  based  expert  systems  with  roughly  the 
same  amount  of  effort  as  to  non-predicate  calculus  based 
(e.g.  0PS5)  expert  systems. 

User  dependent  explanation  seldom  helps  a  domain  expert 
or  knowledge  engineer  modify  or  debug  an  expert  system.  It 
is  easier  to  debug  a  predicate  calculus  expert  system 
because  one  has  access  to  the  proof.  DUCK,  for  example,  has 
a  walk  mode  that  allows  users  to  traverse  the  proof  tree. 
By  typing  "why,"  DUCK  will  show  why  a  result  is  believed. 
This  can  be  used  to  search  for  an  incorrect  theorem  that 
allows  false  results  to  be  generated.  By  typing  "whynot," 
DUCK  will  show  why  a  result  could  not  be  proven.  The 
theorems  that  could  have  generated  the  result  (and  the 
individual  subgoals  associated  with  those  theorems  that  were 
blocked)  will  be  printed.  This  enables  the  user  to  find  and 
edit  the  theorem  or  theorems  that  were  overly  restrictive  or 
create  a  new  theorem  that  covers  the  special  case. 
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CALAP  is  actually  a  tutorial  program,  rather  than 
strictly  an  expert  system.  CALAP's  main  function  is  to 


provide  enough  structure  so  a  novice  can  delineate  landforms 


in  an  image  with  the  help  of  a  map.  CALAP  accomplishes  this 


end  by  offering  and  supplying  information  and  help  to  the 
user.  CALAP  is  a  user  dependent  explanation  system  that 
allows  expert  users  to  skip  over  unnecessary  explanations 
but  allows  novices  to  acquire  both  general  and  specific 
explanations. 

It  is  interesting  to  note  that  FORTRAN  CALAP  runs  very 
well  but  has  no  knowledge  of  or  representation  for  its 
actions.  0PS5  CALAP  could  leave  a  representation  of  its 
actions  in  working  memory,  but  does  not.  Many  of  the 
actions  of  DUCK  CALAP  are  recorded  by  DUCK  and  can  be 
displayed  by  walking  through  the  various  proofs  generated. 


VI.  Conclusion 


It  is  well  known  that,  barring  memory  limitations, 
real-time  constraints,  etc.,  any  task  can  be  made  to  work  in 
almost  any  programming  language.  The  relevent  question  is 
which  languages  provide  good  structure  and  environment  for 
achieving  a  task.  We  will  discuss  the  advantages  and 
disadvantages  of  implementing  CALAP  in  FORTRAN,  LISP,  0PS5, 
and  DUCK. 

In  the  case  of  CALAP,  FORTRAN  is  the  wrong  language 
because:  1)  it  has  forced  a  linearization  of  (Introduced 
artificial  structure  in)  CALAP  that  is  difficult  to 
understand;  2)  it  has  variable  name  conventions  that 
prevent  the  use  of  meaningful  variable  names;  and  3)  it 
does  not  allow  the  chunks  of  knowledge  to  be  stored 
modularly  but  Instead  places  it  only  where  needed  (efficient 
but  hard  to  understand  or  maintain). 

LISP  is  a  much  better  language  for  developing  CALAP 
because  it  does  not  suffer  from  FORTRAN  weaknesses  1)  and 
2).  In  particular,  the  artificial  linearization  could  be 
eliminated  because  the  graph  or  tree  structure  that 
represents  CALAP  could  be  easily  constructed  and  manipulated 
in  LISP.  However,  LISP  too  is  mainly  a  sequential  language 
and  if  knowledge  modularity  is  not  enforced  by  use  of  some 
kind  of  knowledge  database,  then  a  LISP  implementation  could 
have  FORTRAN  weakness  3).  The  other  advantages  of  LISP  are: 
1)  its  powerful  and  flexible  data  structures  are  easy  to  use 
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and  do  not  require  user  storage  allocation;  2)  its  powerful 
online  editing,  tracing,  and  debugging  environment;  and  3) 
its  support  of  recursive  programming,  if  needed. 

0PS5  appears  to  be  much  better  than  FORTRAN  and  it  is 
probably  better  than  LISP  for  implementing  CALAP.  It  does 
not  have  FORTRAN  weaknesses  1),  2),  or  3) ,  but  does  require 
the  introduction  of  artificial  structure  to  Implement 
sequential  production  sequencing  or  looping.  0PS5  allows  a 
production  to  call  LISP  functions.  This  escape  hatch  allows 
databases  of  knowledge  to  be  accessed  without  filling  up 
working  memory,  patently  sequential  tasks  to  be  performed  in 
LISP,  special  input/ output  function  to  be  called,  etc.  0PS5 
has  all  the  other  advantages  of  the  LISP  environment,  data 


structures, 

debugging 

aids, 

and 

recursion, 

etc .  Two 

improvements 

to  0PS5 

would 

be: 

1)  allowing 

structure  in 

working  memory  elements  and,  2)  allowing  production 
sequencing  and  looping  without  the  introduction  of 
artificial  control  structure. 

DUCK  appears  to  be  much  better  than  FORTRAN,  LISP,  or 
0PS5  for  Implementing  CALAP.  It  does  not  have  FORTRAN 
weaknesses  1),  2),  or  3) •  It  is  LISP  with  the  addition  of 
many  useful  capabilities.  It  does  not  require  the 
introduction  of  artificial  structures  to  implement 
procedural  tasks  (as  0PS5  does)  because  it  allows  theorems 
to  call  LISP  functions  which  themselves  can  cause  further 
logic  operations,  etc.  This  escape  hatch  allows  databases 
of  knowledge  to  be  accessed  without  cluttering  up  the 


assertion  database,  patently  sequential  tasks  to  be 
performed  in  LISP  (augmented  by  DUCK),  special  input/output 
function  to  be  called,  etc.  DUCK  has  all  the  other 
advantages  of  the  LISP  environment,  data  structures, 
debugging  aids,  and  recursion,  etc.  One  has  both  the 
benefits  of  a  non-procedural  description  and  the  ability 
choose  a  procedural  description  when  efficiency  or  common 
sense  demands  it.  DUCK  implements  both  forward  and  backward 
chaining,  multiple  databases,  non-monotonic  operations,  a 
reason  malntalnence  system,  common  sense  rules,  automatic 
syntactic  checking  of  predicates,  a  rudimentary  explanation 
facility,  and  a  powerful  logic  debugging  environment. 

Now  there  are  three  different  versions  of  CALAP.  Both 
the  0PS5  and  the  DUCK  were  written  to  be  alike  so  they  could 
be  easily  compared  with  each  other  and  the  original  FORTRAN 
version.  It  is  not  surprising  that  CALAP  could  be 
implemented  in  DUCK,  since  DUCK  has  so  many  features.  The 
DUCK  version  seems  to  be  the  most  transparent  and 
understandlble  Implementation.  In  [2]  we  concluded  that  the 
0PS5  version  of  CALAP  was  somewhat  clearer  than  the  original 
FORTRAN  version. 

A  DUCK  version  of  CALAP  has  been  implemented  using 
approximately  32  theorems.  Most  of  these  theorems  have 
consequents  that  are  written  in  LISP.  The  0PS5  version  of 
CALAP  required  approximately  220  productions.  The 
granularity,  (amount  of  knowledge  in  each  rule),  of  the  DUCK 
version  of  CALAP  is  much  larger  than  that  of  the  0PS5 


version.  DUCK  CALAP  would  probably  be  easier  to  understand 
if  its  granularity  was  smaller:  using  perhaps  70  theorems. 
The  DUCK  version  of  CALAP  was  much  easier  to  program  than 
the  0PS5  version.  This  was  due,  in  large  part,  to  the  ease 
with  which  the  general  non-procedural  nature  of  predicate 
calculus  could  be  subverted  in  DUCK  when  clearly  procedural 
tasks  needed  to  be  performed.  This  enabled  DUCK  CALAP  to 
exploit  the  advantages  of  LOGIC  and  LISP  while  avoiding  the 
drawbacks . 

The  current  theories  about  explanation  in  expert 
systems  have  been  presented.  CALAP  is  really  a  tutorial 
system.  The  advantages  and  disadvantages  of  implementing 
CALAP  in  several  different  languages  have  been  considered. 
The  advantages  of  a  logic  programming  approach  are  that  the 
knowledge  in  the  system  can  be  represented  in  a  clear, 
concise,  and  uniform  manner;  the  underlying  reasoning  of 
the  system  is  logical  (i.e.  has  a  proof);  and  the  system 
can  implement  an  effective  explanation  mode  by  allowing 
proofs  to  be  manipulated  and  displayed  (this  also  creates  an 
efficient  debugging  environment).  These  advantages  stem 
from  a  modular  approach  that  allows  people  to  quickly 
prototype  systems.  The  disadvantages  are  the  space  and  time 
costs  involved  in  using  (accessing,  updating,  etc.)  a 
uniform  knowledge  representation  Instead  of  a  more 
specialized  and  efficient  representation.  These 
disadvantages  are  the  cost  of  implementing  a  modular 
approach. 
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VIII.  Appendix  A:  DUCK  CALAP 

The  source  code  listings  for  the  DUCK  CALAP  system 
appear  in  this  appendix.  Much  of  the  original  FORTRAN  code 
and  all  the  0PS5  productions  remain  as  comments  for  the  DUCK 
logic  program.  The  subsections  are  labelled  lit.l, 
lispcode.l,  sys.l,  calap.l,  xcapi.l,  ebsec.l,  rega.l, 
regin. 1,  regas. 1,  and  deta.l. 
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<  lit.  1  0PS5  Literalize  Definitions 

>  Kenneth  Hayes  Smart  Systems  Technology 

i 

(defducktype  STATE  SYMBOL) 

(duclare  STATE 

begin  calap 

xcapi  xcapil  xcapil-y  xcapil-n  xcapi2  xcapi2-y  xcapi2-n 
ebsec  regin 

rega  ocean-tidal-river  ntriver  triver  low-sa-max  low-sr-max 
low— ter  mid-ter  high-ter 
drainage  special  listing 
regas  regas-coastal  regas-tidal-river 
deta  shore  shore-menu  tidal-river  tidal-menu 
stop 
) 
j 

(defducktype  DEG  NUMBER)  .should  be  between  0  and  60 

i 

(defducktype  CORNER  SYMBOL) 

(duclare  CORNER  northwest-corner  southeast-corner) 

i 

(defducktype  SECTION  SYMBOL) 

(duclare  SECTION  Embayed-Secti on ) 

» 

(defducktype  PLAIN  SYMBOL) 

(duclare  PLAIN  Atlantic-Coastal-Plain) 

i 

(defducktype  FEATURE  SYMBOL) 

(duclare  FEATURE 

srmax  srmin  samax  samin 

s-r-coastal-shoreline 

s-i — coastal— shore 1 in e— ext 

s-r-ti dal -river 

s-r-tidal-r iver-ext 

s-r-ti da  1-river-islands 

s-r-low-coastal-shorel ine 

s-r-low-ti da 1-river 

s-r-low-al luvial-channe 1 

s-r-ti da i-r iver-roc k 

s-r-tidal-r iver-mud 

s-r-ti da 1-r i ver-sand 

s-r-low-terraces 

s-r-low-terraces-near-coast 

s-r-l ow-t err aces-near- tidal -river 

s-r-mid- terraces 

s-r-high-terraces 

s-r-r ivers 

s-r -meander ing-r ivers 
s-r-l ow-meander ing-r ivers 
s-r-high-meander ing-r ivers 
s-r-rapid/fall-rivers 
s-r-def lected-r ivers 
s-r-h igh-def lec ted-r ivers 
s-r-streams 

s-r-meander in g-str earns 
s-r-h igh-meandering-str earns 
s-r-d is tributary -segments 
s-r-h igh-d is tributary -segments 


v»: 
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8 


V. 


y. 
u, 
>  - 


I 


* 

ts 


'j 


§ 


•  -r 
*-r 
s-a 
*-a 
s-a 
s -a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-r 
s-r 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
s-a 
) 


-strang e-gradients 

-s tr ang e-grad ients-incised 

-coastal-shoreline 

-coastal-shoreline-ext 

-tidal-river 

-t  i  da  1  -r  i  ver-e  x  t 

-tidal-river-islands 

-low-coastal-shorel ine 

-low-ti da 1-river 

-low— al luvial -channel 

-max-coastal-shorel ine 

-max-tidal -river 

-max-un-assoc iated 

-tidal -river-roc  k 

-tidal -river-mud 

-tidal -river-sand 

-low-terraces 

-low-terraces-near-coast 

-low-terraces-near-ti dal -river 

-mid— terraces 

-high-terraces 

-rivers 

-meandering-rivers 
-low-meander ing-r ivers 
-high-meander ing-ri vers 
-rap  id /fa  11-rivers 
-def  lected-r  ivers 
-high-deflected-rivers 
-streams 

-meandering-str earns 
-high-meandering-streams 
-distr ibutary-segments 
-h igh-d is tributary-segments 
-strang e-gradients 
-strange-gradients-inc ised 
-gravel-pits 
-quarry 

-coastal-beach 
-coastal-beach-r idge 
-coastal-swale 
-coastal-sand 

-coastal-ponded-depression 

-coastal-islands 

-coastal-bars 

-coastal -bed -roc  k 

-gravel-pits 

-quarry 


(defpred  (goal  STATE  ?s>> 


(defpred  (done  STATE  ?s ) ) 


(defpred  (nextgoal  STATE  ?prev  STATE  ?new)) 


(defpred  (gcoord  CORNER  ?place 

DEO  ?northdegree  DEO  ?northminute  DEG  ?northsecond 
DEO  ?eastdegree  DEO  ?eastminute  DEO  ?eastsecond ) ) 


•r  1 


0? 

£ 


.V, 

,<• 

-V*J 


:v: 


$ 

I 


v? 


a 

k* 


V 

V. 


i  Ml 
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(defpred  (study-region  SECTION  ?s  PLAIN  ?p ) ) 

i 

(defpred  (feature  FEATURE  ?f)) 

i 

(defpred  (spfeature  FEATURE  ?f)) 

i 

(defpred  (answer  FEATURE  ?f  OBJ  ?answer>) 

\ 

(defpred  (spanswer  FEATURE  ?f  (1st  NUMBER)  ?answer)) 

I 

(defpred  (unasked  FEATURE  ?f)) 

j 

(defpred  (ansed  FEATURE  ?f)) 

i 

(defpred  (ask  FEATURE  ?f  OBJ  ?q  OBJ  ?c ) ) 

i 

(defpred  (ask-n  FEATURE  ?f  OBJ  ?q  OBJ  ?c ) ) 

i 

(defpred  (do  FEATURE  ?f  OBJ  ?c ) ) 

> 

Mliteralize  northwest-corner  nd  nm  ns  ed  em  es) 
i  (literalize  southeast-corner  nd  nm  ns  ed  em  es) 
;(literalize  study-region  section  plain) 

>  (literalize  cstack  cp  ps) 

•(literalize  push  cp  ps) 

•  (vector-attribute  ps) 

(princ  "LIT.  L  Loaded") 

(terpr ) 


TO? 
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lispcode.  1  LISP  Support  Functions 

Kenneth  Hayes  Smart  Systems  Technology 


#  (display  format  args)  -  FORTRAN-like  formatted  printing 

i 

(defun  display  (format  args) 

(cond  [(symbolp  format)  (:  =  format  (eval  format))]) 

(do  t(l  format  (cdr  1))] 

[ (nul 1  1)  nil] 

(disprint  (car  1)  args) 

) 

) 

j 

(defun  disprint  (item  args) 

(cond  [(stringp  item)  (princ  item)] 

[(numberp  item)  (dispaces  item)] 

[(eq  item  t)  (terpr)] 

[(and  (consp  item)  (eq  (car  item)  'e)>  (print  (cadr  item))] 
[(and  (consp  item)  (eq  (car  item)  'o)> 

(print  (nthelem  (cadr  item)  args))] 

[t  (print  item)]) 

) 

»  (display-tf  format  args)  -  FORTRAN-like  formatted  printing 

;  for  logical  variables 

(defun  display-tf  (format  args) 

(cond  [(symbolp  format)  ( : ■  format  (eval  format))]) 

(do  [(1  format  (cdr  1))] 

[(null  1)  nil] 

(disprinttf  (car  1)  args) 

) 

) 

i 

(defun  disprinttf  (item  args) 

(cond  [(stringp  item)  (princ  item)] 

[(numberp  item)  (dispaces  item)] 

[(eq  item  t)  (terpr)] 

[(and  (consp  item)  (eq  (car  item)  'e))  (print  (cadr  item))] 
[(and  (consp  item)  (eq  (car  item)  'o)) 

(setq  item  (nthelem  (cadr  item)  args)) 

(cond  [(eq  t  item)  (princ  "T")] 

[item  (princ  item)] 

[t  (princ  "F")])] 

[t  (print  item)]) 

) 

i  (display-and  format  test  args)  -  conditional  FORTRAN-like 

*  formatted  printing 

(defun  display-and  (format  flag  args) 

(cond  [(symbolp  format)  ( : *  format  (eval  format))]) 

(cond  [flag  (do  [(1  format  (cdr  1))] 

[(null  1)  nil] 

(disprint  (car  1)  args) 
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(defun  dispaces  (n) 

(do  C(i  1  (1+  i)  )3 
C(greaterp  i  n ) 3 
(princ  "  ") 

) 

) 


i  (pause)  -  causes  a  wait  until  the  user  types  a  <cr>. 

» 

(declare  (special  nopause*)) 

(defun  pause  ( ) 

(cond  Cnopause*3 

Ct  (princ  "PAUSEing:  Type  <cr>  to  continue") 

(do  C  ( c  (tyi)  ( ty i ) ) 1 
C(eq  c  10)3 
(and  (null  c) 

( terpr ) 

(princ  "Error  in  PAUSE") 

(return) ) 


(setq  nopause*  nil) 


<  (dread)  -  Does  a  standard  read  and  eats  the  <cr> 

i  that  follows  the  input. 

i 

(defun  dread  ( ) 

(progl  (read)  (reader)) 

) 

f 

>  (reader)  -  reads  up  to  the  next  <cr>. 

i 

(defun  reader  ( ) 

(do  C (c  (tyi  )  (tyi  )  )  3 
C(eq  c  10)3 

(cond  C(null  c)  (return)3) 

) 

) 

i 

(putd  'r  (getd  'reset)) 


(defun  display  ()  (ops-prints  (eval  (^parameter  1))  1)) 


(defun  display-tf  ()  ( ops-prints-tf  (eval  (^parameter  1))  1>) 


(defun  display-and  ()  (ops-prints-and  (eval  ((parameter  1))  1)) 


i 
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(defun  cond-display  () 

(cond  [(null  ((parameter  1 )  ) 3 

[t  (ops-prints  (eval  ((parameter  2))  2)3) 

) 


(defun  asked-disp lay  () 

(cond  [(eq  ((parameter  1)  'unasked)! 

[(null  ((parameter  1 ) >  3 

[t  (ops-prints  (eval  ((parameter  2))  2)3) 

) 


; (defun  ops-prints  (format  offset) 

;  (cond  [(null  format)  nil! 
i  [t  (ops-print  (car  format)  offset) 

*  (ops-prints  (cdr  format)  offset)!) 

i  ) 

i  » 

»  (defun  ops-pr ints-tf  (format  offset) 

;  (cond  [(null  format)  nil! 

*  [t  ( ops-pr int-tf  (car  format)  offset) 

»  (ops-prints-tf  (cdr  format)  offset)!) 

;  ) 

»  i 

i (defun  ops-pr ints-and  (format  offset) 

;  (cond  [(null  format)  nil! 

i  [( ops-pr int-and  (car  format)  offset) 

»  (ops-prints-and  (cdr  format)  offset)!) 

>  ) 

i  i 
i  i 

i (defun  ops-print  (item  offset) 

;  (cond  [(stringp  item)  (princ  item)! 

>  [(numberp  item)  (spaces  item)! 

;  [(eq  item  t)  (terpr)! 

;  [(and  (consp  item)  (eq  (car  item)  'e))  (print  (cad r  item))! 

;  [(and  (consp  item)  (eq  (car  item)  'o)) 

i  (print  (^parameter  (+  (cadr  item)  offset)))! 

;  [t  (print  item)!) 

i  ) 

i  i 

i  (defun  ops-print-tf  (item  offset) 
i  (cond  [(stringp  item)  (princ  item)! 

i  [(numberp  item)  (spaces  item)! 

i  [(eq  item  t)  (terpr)! 

i  [(and  (consp  item)  (eq  (car  item)  'e))  (print  (cadr  item))! 

i  [(and  (consp  item)  (eq  (car  item)  'o)) 

;  (setq  item  (^parameter  (+  (cadr  item)  offset))) 

»  (cond  [(eq  t  item)  (princ  "T")3 

*  [item  (print  item)! 

»  [t  (princ  "F" ) 3 ) 3 

i  [t  (print  item)!) 

;  ) 

i  i 

»  (defun  ops-pr int-and  (item  offset) 

;  (cond  [(stringp  item)  (princ  item)  t! 

>  [(numberp  item)  (spaces  item)  t! 
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C(eq  item  t)  (terpr)  tl 

[(and  (consp  item)  (eq  (car  item)  'e))  (print  (cadr  item))  tl 
[(and  (consp  item)  (eg  (car  item)  'o)) 

(cond  C(setq  item  (^parameter  (+  (cadr  item)  offset))) 
(print  item)  tl 
Ct  nil])] 

Ct  (print  item)  tl) 


(defun  spaces  (n) 

(do  C ( i  1  (1+  i ) )  1 
[(greaterp  i  n)l 
(princ  "  "> 

) 


(defun  clear  ()  (zapline)) 


(defun  yes-no  ( ) 

(Stab  2) 

(♦value 

(cond  C(memq  (read-first) 

'(Y  y  YES  yes  Yes 

□K  ok  Ok  TRUE  true  T  t  GO  go  Go))  t 1 

Ct  nil!)) 

(♦value  'user) 

(♦assert ) 

) 

i 


(defun  inputl  ( ) 

(♦value  (read-first)) 

(♦assert ) 

) 

i 

(defun  read-first  () 

(do  C(c  (tyi)  (tyi))  (1  nil)! 

[(equal  10  c)  (apply  'concat  (nreverse  1 ) ) 3 
(setq  1  (cons  (ascii  c)  1)) 

) 

) 


(declare  (special  nopause*)) 

(defun  pause  ( ) 

(cond  Cnopause*! 

Ct  (princ  "PAUSEing:  Type  <cr>  to  continue") 
(do  C(c  (tyi)  ( ty i  )  )  3 
C ( eq  c  10)1 
(and  (null  c) 

( terpr ) 

(princ  "Error  in  PAUSE") 
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!  n> 


) 


(return ) ) 


>  (setq  nopause*  nil) 

i  i 

i  (putd  'cons p  (getd  'dtpr)> 

i  » 

<  (putd  'r  (getd  'reset)) 

i  i 

(princ  "LISPCODE.  L  Loaded") 
( terpr ) 
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i  sys.  1  Control  and  Utility  Routines 

i  Kenneth  Hayes  Smart  Systems  Technology 

i 

>  (calap) 

i 

i  CALAP  is  the  main  control  program  of  DUCK  CALAP. 

i  CALAP  runs  in  a  private  data-pool. 

j 

(defun  calap  <) 

(let  C(dp*  (dp-push  dp*))! 

(do  C(over  nil) 

(waste  (premiss  '(done  begin))) 

(ii  1  (add  1  i i ) ) 3 

Cover  (progn  (msg  t  "CALAP  Signing  off"  t) 
(duck) 

(dp-kill  dp*))! 

(cond  Ccalap-dbg*  (msg  t  "CONTROL  LOOP  "  ii  t) 

(duck) 

(reader ) ! > 

( f or-f irst-ans  (fetch  '(done  stop)) 

( : «  over  t) 

) 

( f or-f irst-ans  (fetch  '(and  (done  ?x > 

(nextgoal  ?x  ?y ) 
(thnot  (goal  ?y ) ) ) ) 

(cond  Cover! 

C(#q  ?y  'stop)  ( : «  over  t)! 

Ct  (msg  t  "CALAP  STEP  "  ?y  t) 

(errset  (premiss  '(goal  ?y ) )  nil)!) 


(setq  calap-dbg*  nil) 

i 

i  (gans  feat)  -  returns  the  answer  associated  with  feature 

*  FEAT i  or  NIL  if  there  is  no  answer. 

i 

(defun  gans  macro  (exp) 

'(let  C(x  (assertion-fetch  '(answer  >(cadr  exp)  ?x)))l 
(cond  Cx  ?( x  (car  x))l) 


»  (gans*  feat)  -  returns  the  answer  associated  with  feature 

•  FEAT*  or  NIL  if  there  is  no  answer.  FEAT 

i  is  evaluated. 

) 

(defun  gans*  (feat) 

(:■  feat  (assertion-fetch  '(answer  , feat  ?x))) 

(cond  Cfeat  ?(x  (car  feat))!) 


(gans+  feat)  -  returns  the  answer  associated  with  feature 
FEAT,  or  "?"  if  there  is  no  answer. 


(defun  gans+  macro  (exp) 


s'V'vvW 
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f 

r 

t 

r 


C 

C 

c 


c 

c 

c 

c 


'(let  C(x  (assertion-fetch  '(ansuier  -  (cadr  exp)  ?x)))3 


( cond 


Cx 

Ct 


?(x  (car 
"?"  3 ) 


x  )  )  3 


(gansp  feat)  -  returns  the  “special"  answer  associated  with 
feature  FEAT;  or  NIL  if  the  is  no  special 
answer.  GANSP  is  only  used  for  the  gravel-pit 
and  quarry  features. 


(defun  gansp  macro  (exp) 

'(let  C(x  (assertion-fetch  '(spanswer 
(cond  Cx  ?(x  (car  x))3> 


(cadr  exp )  ?x ) ) ) 3 


) 


) 


(unans  feat)  - 


returns  NIL  if  there 
with  FEAT;  otherwise; 


is  an  answer  associated 
non-NIL  is  returned. 


(defun  unans  macro  (exp) 


(assertion-fetch  '(unasked  ;(cadr  exp))) 


) 


(unans*  feat)  -  returns  NIL  if  ther  is  an  answer 

with  FEAT;  otherwise;  non-NIL  is 
FEAT  is  evaluated. 


assoc iated 
returned. 


(defun  unans*  (feat) 

(assertion-fetch  '(unasked 


feat) ) 


) 


(user  feat  ques) 


USER  returns  the  value  of  feature  FEAT.  If  FEAT  has  not  been 
answered#  then  print  out  QUES  and  assert  the  user's  response  as 
the  answer  to  feature  FEAT. 


(defun  user  (feat  ques) 
(cond  C(unans*  feat) 

(display  ques 
( : *  ques 
(premiss 
( : ■  ques 


Ct 


nil) 

(and  (is-yes  (dread))  t)) 
'(answer  ; feat  ;ques))3 
( gans*  feat ) ) 3 ) 


ques 

) 


(ask  feat  question  msg) 


ASK  causes  an  answer  to  be  associated  with  feature  FEAT;  if 
no  answer  is  currently  associated  with  FEAT.  QUESTION  is  what  is 
printed  to  the  user  before  the  answer  is  read.  If  the  answer 
associated  with  FEAT  is  T  and  MSG  is  non-NIL;  then  the  predicate 
(do  FEAT  MSG)  is  asserted  into  the  database. 


(lisprule  askit  (ask  ?feat  ?ques  ?cmd)  -> 
(user  ?feat  ?ques) 

(cond  C?cmd  (premiss 
) 


(— >  (answer  ?feat  t)  (do  ?feat  ?cmd)))3> 
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(ask-n  feat  question  fea t2> 


;  ASK-N  causes  an  answer  to  be  associated  with  feature  FEAT*  if 

i  no  answer  is  currently  associated  with  FEAT.  QUESTION  is  what  is 
i  printed  to  the  user  before  the  answer  is  read.  If  the  answer 
*  associated  with  FEAT  is  NIL*  then  the  answer  NIL  is  associated 
i  with  feature  FEAT2. 


(lisprule  ask-nil-prop  (ask-n  ?featl  ?msg  ?feat2> 
(user  ?featl  ?msg) 

(cond  C(not  (gans*  ?featl)) 

(premiss  '(answer  ?feat2  nil))]) 


) 


-> 


(do  feat  msg) 


;  DO  causes  message  MSG  to  be  printed  to  the  user  and  DUCK 

«  to  pause  until  the  user  types  a  <cr>. 

i 

(lisprule  doit  (do  ?feat  ?cmd)  -> 

(display  ?cmd  nil) 

( pause ) 

) 


.  (external  display) 

«  (external  display-tf) 

>  (external  display-and) 

i (external  cond-display ) 

.(external  asked-display ) 
i (external  clear) 
i  (external  inputl ) 
i (external  pause) 

. (external  yes-no) 

»  i 

i  (p  start-rule 
.  (start)  — > 

;  (remove  1) 

i  (make  done  start) 

i  (make  cstack  ~cp  start  "“ps  calap  xcapi  alldone) 

j  ) 

J  i 

>  (p  main-control-rule 
»  (done  <a>) 

i  (cstack  "'cp  <a>  ~ps  <b>)  — > 
i  (modify  1  goal  (substr  2  3  3)) 

;  (remove  2) 

;  (make  cstack  ~cp  (substr  233)  Aps  (substr  2  4  inf)) 

i  ) 

)  f 

i(p  push-control-rule 

>  (goal  <a>) 

■,  (push  Acp  <a>) 

;  (cstack  Acp  <a>)  — > 
i  (modify  1  ~2  (substr  233)) 

;  (remove  2) 

i  (modify  3  ~c p  (substr  2  3  3) 

i  -^ps  (substr  2  4  inf)  (substr  3  3  inf)) 

i  ) 
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i  i 

>  (p  a 11 done-rule 

»  (goal  alldone)  — > 

>  (remove  1) 

*  (write  (crlf)  "CALAP  all  done"  (crlf)) 

;  (halt) 

i  ) 

>  # 

( terpr ) 

(princ  "SYS.  L  Loaded") 

( terpr) 
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calap. 1  Computer-Assisted  Landform  Analysis  Program 

Fortran  System:  Robert  Leighty  USAETL 

0PS5  System:  Kenneth  Hayes  Smart  Systems  Technology 

DUCK  System:  Kenneth  Hayes  Smart  Systems  Technology 

»  PROGRAM  CALAP 

j 

i  *****#««****«*#****#****«******##**********#*#*##«************#*# 

i  COMPUTER-ASSISTED  LANDFORM  ANALYSIS  PROGRAM 

i  AN  INTERACTIVE  PROGRAM  WHICH  LEADS  A  PHOTO  INTERPRETER  THROUGH 
i  A  LANDFORM  ANALYSIS  PROBLEM  FOR  ANY  STUDY  AREA  IN  A  SELECTED 
i  PHYSIOGRAPHIC  SECTION. 

i  RDL*  MAY  81 

;  ***************************************************************** 


ii  DIMENSION  ICALAP(3)< IYES(2> 

i  i 

i  i  DATA  ICALAP/2HXC.  2HAP*  2HI  / 

i  i  DATA  IYES/2HYE,  2HS  / 

i  » 
i  i 

a  CALL  RMPAR  <LU) 

a  IF(LU(1).  EG.  0)LU(1)»1 

i  i  I STEP- 1 

i 

i  i  - 

;  i  SYSTEM  INTRODUCTION 

i  i  - 

#  / 

I 

(lisprule  calap-rule  (goal  calap)  -> 

(display  'calap-start-msg  nil) 

( pause ) 

(prog  Cansl  ans2I 

top  (display  'calap-coord-msg  nil) 

( : -  ansi  ( dread  ) ) 

(cond  C(eq  ansi  'help) 

(display  'calap-coord-help  nil) 

( go  top  )  3 
C(eq  ansi  'ok) 

(:-  ansi  '(38  41  30  77  10  25)) 

(:-  ans2  '(38  40  4*  77  9  5)) 

(premiss  '(gcoord  northwest-corner  ..ansi)) 
(premiss  '(gcoord  southeast-corner  .<ansl)) 

(go  ch k  )  3 

C(eq  ansi  'exit)  (return  (premiss  '(done  stop)))! 
C(and  (consp  ansi)  (equal  (length  ansi)  6)) 

(premiss  '(gcoord  northwest-corner  .<ansl))l 
Ct  (msg  t  "Improper  Input*  Please  try  again"  t) 

( go  top  )  3 
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get2  (:■  ans2  (dread)) 

(cond  C(and  (consp  ans2)  (equal  (length  ans2)  6)) 

(premiss  '(gcoord  southeast-corner  .  (ans2))] 

Ct  (msg  t  "Improper  Input.  Try  again  with  second  coordinat 
(go  get2)3 

) 

chk  (display  'calap-coord-disp lay  (append  ansi  ans2)) 

( :  ■  ansi  ( dread  ) ) 

(cond  C(eq  ansi  'exit) 

(return  (premiss  '(done  stop)))! 

C(is-yes  ansi) 

(premiss  '(study-region  Embay ed-Section 

Atlantic-Coastal-Plain) ) 3 
Ct  (display  'calap-back  nil) 

(go  top)3 

) 

done  (premiss  '(done  calap)) 

(return ) 

) 

) 

;  (p  calap-rule-1 
»  (goal  calap)  — > 

;  (call  display  calap-start-msg ) 

;  (make  goal  calap-input-coord ) 

>  ) 

i  j 

ii  WRITE (LU(2) » 4) 

(setq  calap-start-msg 

'(t  t  t  5  "WELCOME  TO  CALAP"  t  t 

10  "The  acronym  CALAP  stands  for  computer-assisted"  t 
S  "landform  analysis  program.  "  t  t 

10  "During  the  course  of  the  program  you  mill  be  asked"  t 
3  "to  enter  (type)  information  via  the  keyboard. "  t 
3  "Requests  relating  to  a  selection  from  a  menu  or  a”  t 
3  "simple  yes/no  answer  are  self  explanatory!  but  where"  t 
3  "alphanumeric  data  is  requested#  a  format  will  usually"  t 
3  "be  given.  "  t  t 

10  “We  will  assume  you  have  a  1:30.000  scale  topographic"  t 
3  "map  sheet/sheets  containing  a  rectangular  geographic"  t 
3  "area  in  which  you  wish  to  identify  and  delineate  the"  t 
5  "landforms.  Here  after  this  area  will  be  referred"  t 
3  "to  as  the  'study  area'  and  the  remainder  of"  t 
5  "the  topographic  map  sheet  will  be  called  the"  t 
3  "'study  region'.  We  also  will  assume  that  you  have  "  t 
3  "aerial  imagery  of  two  photo  scales:  a  small  scale"  t 
3  "of  monoscopic  or  stereoscopic  photos  with  scales"  t 
3  "of  <1:80.000  and  a  stereoscopic  set  of  images  with”  t 
3  "photo  scales  of  1:50.000  or  larger."  t  t)) 


STUDY  AREA  COORDINATE  ENTRY 


;  i  5  WRITE(LU(2>.  6) 

(setq  calap-coord-msg 

'(t  t  10  "Now  please  enter  the  latitude-longitude"  t 

5  "coordinate  in  degrees,  minutes,  and  seconds  for  the"  t 
5  "northwest  and  southeast  corners  of  the  rectangular"  t 
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5  "study  area.  (ie.  2  separata  lines,  each  line  consists"  t 
5  "of  6  # s  separated  by  blanks  and  surrounded  by  parentheses)"  t 
5  "Type  'help<cr>'  if  you  do  not  understand  the  format"  t 
5  "desired.  'ok<cr>'  for  the  standard  coordinates."  t 
5  "or  'exit<cr>'  to  exit  the  program.  "  t  )) 

i  i 

;<p  calap-input-coord-rule-l 
i  (goal  calap-input-coord )  — > 

;  (call  display  calap-coord-msg ) 

i  (make  northwest-corner  (accept)  > 

;  (call  clear) 

i  ) 

t  i 

;(p  calap-input-coord-rule-2 
;  (goal  calap-input-coord )  — > 

;  (make  southeast-corner  (accept)) 

;  (call  clear) 

i  ) 

i  i 

i(p  calap-coord-help-rule 
i  (goal  calap) 

>  (goal  calap-input-coord ) 

i  (northwest-corner  help)  — > 
i  (remove  2  3) 

>  (make  goal  calap-input-coord) 

;  (call  display  calap-coord-help ) 

i  ) 

i  i 

;(p  calap-coord-ok-rule-1 
i  (goal  calap) 

;  (goal  calap-input-coord ) 

i  (northwest-corner  ok)  — > 
i  (remove  3) 

;  (make  northwest-corner  38  41  30  77  10  25) 

i  (make  southeast-corner  38  40  45  77  9  5) 

i  ) 

i  $ 

i  (p  calap-coord-ok-rule-2 
i  (goal  calap) 

i  (goal  calap-input-coord ) 

;  (northwest-corner  ok) 
i  (southeast-corner)  — > 
i  (remove  3  4) 

.  (make  northwest-corner  38  41  30  77  10  25) 

i  (make  southeast-corner  38  40  45  77  9  5) 

;  ) 

i  l 

i  (p  calap-coord-bye-rule 
;  (goal  calap) 

i  (goal  calap-input-coord) 

i  (northwest-corner  exit)  — > 

>  (remove  123) 

i  (halt) 

i  ) 

I  » 

ii  8  READ ( LU ( 1 ) . * ) MLAT 1(1). ML AT 1(2). MLAT 1(3). MLON 1(1), MLON 1(2). 

; ;  *  MLON 1(3), ML AT2 ( 1 ) , ML AT2 ( 2 ) «  ML AT2 ( 3 ) , ML0N2 ( 1 ) , ML0N2 ( 2 ) , ML0N2 ( 3 ) 

;  i 

ii  IF(MLAT1 ( 1 ) .  NE.  0)G0  TO  25 
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STUDY  AREA  COORDINATE  ENTRY  ASSISTANCE 


ii  WRITE <LU(2). 10) 

(setq  calap-coord-help 

'(t  t  "  EXAMPLE  OF  THE  DESIRED  FORMAT:"  t 

5  "If  the  latitude  and  longitude.  in  degrees* "  t 
5  "minutes*  and  seconds*  of  a  corner”  t 

5  "of  the  study  area  is  (N  38D  41'  30"*  E  77D  10'  25")"  t 
5  "then  it  should  be  typed  as"  t 
5  "(38  41  30  77  10  25><cr>"  t  t 
5  "OK  let's  try  it  for  your  coordinates. "  t  t)) 

i 

i  00  TO  8 

i 

i  25  IF(MLAT1.  EQ.  9) GO  TO  100 


DISPLAY  COORDINATES 


><p  ca lap— d i sp lay-ru le 

>  (goal  calap-input-coord ) 

*  (northuiest-corner  <a>  <b>  <c>  <d>  <e>  <f>) 

*  (southeast-corner  <u>  <v>  <w>  <x>  <y>  <z>)  — > 

>  (call  display  calap-coord-display 

i  <a>  <b>  <c>  <d>  <e>  <f> 

i  <u>  <v>  <w>  <x>  <y>  <z>) 

*  (make  calap  (accept)) 

i  (call  clear) 

*  ) 

*  $ 

i  i  HR I TE ( LU ( 2 ) » 30 ) MLAT 1(1 ) * MLAT1 (2) » MLAT1 (3) ,  ML0N1 ( 1 ) ,  ML0N1 ( 2) , 

i  ;  *  ML0N1 ( 3 ) »  MLAT2 ( 1 ) .  MLAT2 ( 2 ) .  MLAT2 ( 3 ) »  ML0N2 ( 1 ) ,  ML0N2 ( 2 ) *  MLDN2 ( 3 ) 

(setq  calap-coord-d isp lay 

Mt  "  Is  your  northwest  corner  coordinate:"  t 
5  "N  "  (o  1)  "d  "  (o  2)  " '  "  (o  3)  ""* 

"E  "  (o  4)  "d  "  (o  5)  "  (o  6)  "  ""  t 

"  and  your  southeast  corner  coordinate:"  t 
5  "N  "  (o  7)  "d  "  (o  8)  "  (o  9)  "", 

"E  "  (o  10)  "d  "  (o  11)  "  (o  12)  """  t  t 

"  If  so  type  'yes',  if  not  type  'no'.  "  t 
"  If  you  want  to  stop,  type  'exit'."  t  t)) 

ii  READ(LU( 1 ) ,  35) IANS 
i i  35  FORMAT (2A2) 

i  i 

i  (p  calap-done-rul e 
i  (goal  calap) 

i  (goal  calap-input-coord) 

i  (calap  «  yes  YES  y  Y  t  T  true  TRUE  ok  OK  »)  — > 
i  (modify  1  "'l  done) 

i  (remove  2  3) 

i  (make  study-region  "'section  lEmbayed  Section! 

i  "'plain  {Atlantic  Coastal  Plain!) 

i  ) 

i  i 

i  (p  calap-loop-rule 
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r 


C. 

r. 

f 

I 

r 


r 


c. 

c 

i 

|C 

I 

,c 


(goal  calap) 

(goal  calap-input-coord ) 

( northwest-corner ) 

( southeast-corner ) 

(calap  «  no  NO  n  N  nil  NIL  »>  — > 

(modify  2  •'M  goal) 

(remove  345) 

(call  display  calap-back) 

) 

i 

(p  calap-gone-rule 
(goal  calap) 

(goal  calap-input-coord ) 

(calap  «  exit  EXIT  e  E  »)  — > 

(remove  123) 

) 

I 

(p  calap-whoa-rule 
(goal  calap) 

(calap  <ans»  — > 

(write  (crlf)  "Sorry  your  answer  of  "  <ans>) 

(write  (crlf)  "was  not  'yes'*  'no'i  or  'exit'.  Please  try  again") 
(write  (crlf) ) 

(modify  2  A2  (accept)) 

(call  clear) 

) 

f 

i  IF(IANS.  EQ.  IYES)GO  TO  50 

i  WR I TE ( LU ( 2 ) *  40 ) 

(setq  calap-back  '(t  t  "  OK  let's  try  again!"  t  t)) 

;  i  CO  TO  5 

a  50  CALL  EXEC (8. I CALAP) 

»  i 

i  i  100  END 
( terpr ) 

(princ  "CALAP.  L  Loaded") 

( terpr ) 
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xcapi. 1  System  Overlay  Program 

Fortran  System:  Robert  Leighty  USAETL 

□PS5  System:  Kenneth  Hayes  Smart  Systems  Technology 

DUCK  System:  Kenneth  Hayes  Smart  Systems  Technology 

PROGRAM  XCAPI (5) 

*#**•****##*****«*******###*»#***#«**###*•*#*****«#*#«*«*****»«** 
EXECUTIVE  SEGMENT  OF  PROGRAM  CALAP 
RDL,  MAY  SI 

«tt«»*****#*#*******#********«****#»**#*****«*»«*«**»*«***««**«**« 

COMMON  LU ( 5 ) ,  ML AT 1 < 3 ) >  MLON 1(3)* MLAT2 ( 3 ) »  ML0N2 ( 3 ) «  ISTEP, MINR. 

*  MAXR, MINS, MAXS 

COMMON  IRC, ISC, IRCE, ISCE, IRTR, ISTR, IRTRE, ISTRE, IRLC, 

*  IRLAC,  ISLC.  ISLTR,  ISLAC,  ISMC,  ISMTR,  IRTRR,  IRTRM,  IRTRS,  ISTRR, 

*  ISTRM, ISTRS, ISMZ, IRT10, IRT1C, IRT1TR, IST10. IST1C, IST1TR, IRT20, 

*  IST20,  IRT30,  IST30,  IRAC,  IRACM,  IRACML,  IRACMH,  IRARF,  IRACD.  IRACDH, 

*  IRS, IRSM, IRSMH, IRSD, IRSDH, IRSG, IRSGI, ISAC, ISACM, ISACMH, ISARF, 

*  ISACD,  ISACDH,  ISS,  ISSM,  ISSDH,  ISSG,  ISSGI,  IRLTR,  ISSD,  ISSMH, 

*  IRGP  <  20 ) .  IRRQ(20).  ISGP<20),  ISRQ(20),  IRTR I ,  ISTRI 


DIMENSION  IEBSEC (3 ) , IREGA(3>, IREGAS<3>, IDETA(3) 

DATA  IEBSEC/2HEB.  2HSE,  2HC  / 

DATA  IREGA/2HRE. 2HGA, 2H  / 

DATA  IREGAS/2HRE,  2HGA,  2HS  / 

DATA  IDETA/2HDE,  2HTA,  2H  / 


GO  TO  ( 1,  2,  3,  4,  5,  6,  7,  8),  ISTEP 


c 

l’V 


(defpred  (nextgoal  STATE  ?old  STATE  ?neu) 
(nextgoal  begin  calap) 

(nextgoal  calap  xcapi) 

(nextgoal  xcapi  ebsec) 

(nextgoal  ebsec  regin) 
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(->  (goal  xcapi)  (done  xcapi)) 

) 

i 

(lisprule  xcapil-test  (goal  xcapil)  -> 

(display  'regional-analysis-sum-msg  nil) 

(cond  C(is-yes  (dread))  (premiss  '(done  xcapil-y))l 
Ct  (premiss  '(done  xcapil-n))3) 

) 

i 

(lisprule  xcapi2-test  (goal  xcapi2)  -> 

(display  'detail-analysis-msg  nil) 

(cond  C(is-yes  (dread))  (premiss  '(done  xcapi2-y))l 
Ct  (premiss  '(done  xcapi2-n))l) 

) 

i 

<  ( p  xcap i-rule 
i  (goal  xcapi)  — > 

*  (make  push  ''cp  xcapi  Aps  ebsec  regin  rega  xcap i-test-1 ) 

>  ) 


REGIONAL  BACKGROUND  PROGRAM  SEGMENT 


1  ISTEP=ISTEP+1 

CALL  EXEC (8, IEBSEC) 

2  I STEP* I STEP +1 


i  REGIONAL  ANALYSIS  PROGRAM  SEGMENT 


3  ISTEP*ISTEP+1 
CALL  EXEC (8,  IREGA) 

4  I STEP* I STEP +1 


i  REGIONAL  ANALYSIS  SUMMARY  SEGMENT 

i  - 

9 

(p  xcapi-test-l-rule 

(goal  xcap i-test-1 )  — > 

(call  display  regional-analysis-sum-msg ) 

(call  yes-no  xcapi) 

) 

9 

(p  xcapi-test-l-yin-rule 
(goal  xcap i-test-1 ) 

(xcapi  nil)  — > 

(make  push  '"'cp  xcapi-test-1  ~p 5  xcapi-test-2) 
(remove  2) 

) 

9 

(p  xcapi-test-l-yang-rule 
(goal  xcapi-test-1) 

(xcapi  <n>)  — > 

(make  push  '"'cp  xcapi-test-1  ^ps  regas  xcapi-test-2) 
(remove  2) 

) 


.1 


l>.  t*4 
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ii  WRITE(LU(2)«  100) 

<setq  reg i ona 1-analy si s-sum-msg 

'(t  t  "Do  you  want  to  see  the  Regional  Analysis  Summary?"  t  t>) 
i  READ<LU< 1 )#  *) IDO 

i  IF (IDO.  NE.  1)00  TO  50 

i  5  I STEP* I STEP* 1 

i  CALL  EXEC (S,  I REGAS) 

i  6  ISTEP=ISTEP+1 


DETAILED  ANALYSIS 


xcap i-test-2-rule 
(goal  xcap i-test-2)  — > 

(call  display  detai 1-analy sis-msg ) 
(call  yes-no  xcapi) 

) 

xcap i-test-2-y in-rule 
(goal  xcapi-test-2) 

(xcapi  nil)  — > 

(modify  1  ^1  done) 

(remove  2) 

) 

xcap i-test-2-yang-rule 
(goal  xcapi-test-2) 

(xcapi  t)  — > 

(remove  2) 

(make  push  ~cp  xcapi-test-2  ~ps  deta) 


i  i  SO  WRITE(LU(2).  10S) 

(setq  detai 1-analy sis-msg 

'(t  t  "Do  you  want  to  see  the  Detailed  Analysis?" 
i  READ ( LU ( 1 ) #  * ) JDO 

i  IF ( JDO.  NE.  1)00  TO  60 

i  IF  ( IDO.  NE.  1 )  I  STEP*  I  STEP +2 

i  7  I STEP* I STEP +1 

i  CALL  EXEC (8.  IDETA) 

i  8  ISTEP*ISTEP+1 

i 

i  60  CONTINUE 


( terpr ) 
(princ  ' 
( terpr ) 
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ebsec. 1  Regional  Background  Information  Program 

Embayed  Section  of  Atlantic  Coastal  Plain 


Fortran  System:  Robert  Leighty 
□PS5  System:  Kenneth  Hayes 

DUCK  System:  Kenneth  Hayes 

PROGRAM  EBSEC (5) 


USAETL 

Smart  Systems  Technology 
Smart  Systems  Technology 


***************************************************************** 

REGIONAL  BACKGROUND  INFORMATION  FOR  EMBAYED  SECTION  OF  ATLANTIC 
COASTAL  PLAIN.  SEGMENT  OF  PROGRAM  CALAP. 

RDL,  MAY  81 

***************************************************************** 

COMMON  LU ( 5 ) , MLAT 1(3), MLON 1 < 3  > ,  MLAT2 ( 3 ) ,  ML0N2 (3) »  I STEP ,  M I NR , 

*  MAXR, MINS,  MAXS 

COMMON  IRC,  ISC.  IRCE,  ISCE,  IRTR, ISTR,  IRTRE.  ISTRE,  IRLC, 

*  IRLAC,  ISLC, ISLTR, ISLAC,  ISMC, ISMTR,  IRTRR,  IRTRM,  IRTRS,  ISTRR, 

*  ISTRM.  ISTRS,  ISMZ.  IRT1Q,  IRT1C, IRT1TR,  IST10.  IST1C,  IST1TR,  IRT20. 

*  IST20,  IRT30,  IST30,  IRAC,  IRACM,  IRACML,  IRACMH,  IRARF,  IRACD.  IRACDH 

*  IRS,  IRSM,  IRSMH,  IRSD,  IRSDH,  IRSG,  IRSGI,  ISAC,  ISACM,  ISACMH,  ISARF, 

*  ISACD,  ISACDH,  ISS.  ISSM,  ISSDH,  ISSG,  ISSGI,  IRLTR,  ISSD.  ISSMH, 

*  IRGP <20) ,  IRRG(20) ,  ISGP<20>,  ISRQ(20>,  IRTR I,  ISTRI 


DIMENSION  I CALAP ( 3 ) 


DATA  ICALAP/2HXC, 2HAP, 2HI  / 


MENU  PRESENTATION 


i  ;  20  WR I TE  <  LU ( 2 ) , 22 ) 

(lisprule  ebsec-rule  (goal  ebsec)  -> 

( f or-f irst-ans  (fetch  '(study-region  ?s  ?p ) ) 

(display  'ebsec-kickof f-msg  (list  ?s  ?p > ) 

) 

(prog  Cal  a23 

top  ( f or-f irst-ans  (fetch  '(study-region  ?s  ?p ) ) 

(display  'ebsec-menu-msg  (list  ?s  ?p ) ) 

) 

(:«  al  (dread) ) 

(cond  C(memq  al  '(1  p  physiography  phy  pg)) 

(display  'ebsec-phy siography-msg  nil)3 
C(memq  al  '(2  If  landforms)) 

(display  'ebsec-landf orm-msg  nil)] 

C(memq  al  '(3  g  geology  s  soils  geology /soi Is ) ) 
(display  'ebsec-geology-msg  nil)] 

C(memq  al  '(4  c  climate)) 

(display  'ebsec-c 1 imate-msg  nil)] 
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C(memq  al  '(5  d  drainage)) 

(display  'ebsec-drainage-msg  nil)! 

C(memq  al  '(6  v  vegetation)) 

(display  'ebsec-vegetation-msg  nil)! 

C(memq  al  '(7  1  lu  landuse)) 

(display  'ebsec-landuse-msg  nil)! 

C(memq  al  '(8  h  hydrology  marine  m  marine/hy drol ogy ) ) 
(display  'ebsec-hydrology-msg  nil)! 

C(memq  al  '(9  e  exit)) 

(return  (premiss  '(done  stop)))! 

C(memq  al  '(0  ok))  (return)! 

Ct  (msg  t  “Illegal  Answer*  Please  try  again"  t) 

(go  top ) ! 

) 

more  (display  'ebsec-more-msg  nil) 

(:-  a2  (dread)) 

(cond  C(memq  a2  '(1  detail  more  m  d)) 

(display  'ebsec-phy siography-more-msg  nil) 

(go  top)! 

C(memq  a2  '(2  another  a)>  (go  top)! 

C(memq  a 2  '(3  continue  c  go  g  go-on)) 

(return ) ! 

Ct  (msg  t  "Sorry:  "  a2  "  is  not  a  legal  response" 
t  "Please  respond  properly"  t) 

(go  more)! 

) 

) 

(premiss  '(done  ebsec) ) 

) 

i 

(setq  ebsec-k ic kof f-msg 

'(t  t  10  "Your  study  area  is  in  the  "  (o  1)  "  of"  t 
5  "the  "  (o  2)  "  Physiographic  Province.  The"  t 
5  "following  menu  will  provide  regional  background"  t 
5  "information  on  this  physiographic  section  if  you"  t 
5  "desire.  "  t  t) ) 

;  » 

>  (p  ebsec-menu-rule 
i  (goal  ebsec) 

*  (study-region  <s>  <p>>  — > 

;  (call  display  ebsec-kickof f-msg  <s>  <p>) 

j  (call  display  ebsec-menu-msg  <s>  <p>) 

i  (make  ebsec  (accept)) 

•  (call  clear) 

j  ) 

i  i 

i  i  25  WRITE(LU(2),  26) 

(setq  ebsec-menu-msg 

'(t  "  ***************************************************"  t 
5  (o  1)  ",  "  (o  2)  t  t 
10  "1  -  Physiography "  t 
10  "2  -  Landforms"  t 
10  "3  -  Geology /Soi Is"  t 
10  "4  -  Climate"  t 
10  "5  -  Drainage"  t 
10  "6  -  Vegetation"  t 
10  "7  -  Landuse"  t 
10  "8  -  Marine  Hydrology"  t 
10  "9  -  ****Terminate  Program****"  t 
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10  "0  -  Complete  regional  background  phase"  t  t 
"  *****»**************«***#•****«**********#«*******«"»***  ••  t  t 
5  "Please  type  your  selection  number"  t  t)) 

READ<LU( 1  ),#)  IPICK 

IF(  IPICK.  EQ.  0.  OR.  IPICK.  EG.  9)G0  TO  1000 
00  T0(  1 10<  120,  130,  140,  150,  160,  170,  ISO).  IPICK 


PHYSIOGRAPHIC  DESCRIPTION 


(p  ebsec-phy siography-rule 
(goal  ebsec) 

(study-region  iEmbayed  Section!  {Atlantic  Coastal  Plain!) 
(ebsec  «  1  p  physiography  phy  pg  »)  — > 

(call  display  ebsec-phy siography-msg ) 

) 

9 

i  110  WRITE (LU(2),  112) 

(setq  ebsec-physiography-msg 

'(t  t  5  "PHYSIOGRAPHY  OF  THE  EMBAYED  SECTION,"  t 

5  "ATLANTIC  COASTAL  PLAIN  PHYSIOGRAPHIC  PROVINCE"  t  t 
10  "The  Embayed  Section  of  the  Atlantic  Coastal  Plain 
10  "a  submaturely  dissected  and  partly  submerged, "  t 
10  "terraced  coastal  plain.”  t  t)) 


ADDITIONAL  INFORMATION? 


ebsec -more-rule 
(goal  ebsec) 

(ebsec  <n>)  — > 

(call  display  ebsec-more-msg ) 
(make  ebsec-more  (accept)) 
(call  clear) 


n  WRITE(L'J(2) ,  116) 

(setq  ebsec-more-msg 

'(t  t  5  "Type: "  t 


For  additional  information  in  this  category" 
For  regional  background  information  in  a”  t 
different  category”  t 
To  complete  your  regional  background"  t 
information  phase  and  proceed  with  regional 
analysis"  t  t)) 


READ ( LU ( 1 ) ,  * ) I ANSD 
GO  T0(118,  25,  1000),  I  ANSD 

ebsec-more-ans-rule-1 
(goal  ebsec) 

( ebsec ) 

(ebsec-more  «  1  detail  more  m  d  »)  — > 
(call  display  ebsec-phy siogrephy-more-msg ) 
(modify  3  ~2  2) 
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i  ) 

<(p  ebsec-more-ans-rule-2 
<  (goal  ebsec) 
i  (study-region  <s>  <p>) 
i  (ebsec) 

;  (ebsec-more  «  2  another  a  »)  — > 

;  (call  display  ebsec-menu-msg  <s>  <p>) 

j  (modify  3  '"2.  (accept)) 

i  (call  clear) 

»  (remove  4) 

i  ) 

i(p  ebsec-more-ans-rule-3 
;  (goal  ebsec) 

;  (ebsec) 

;  (ebsec-more  «  3  continue  c  go  g  go-on  »)  — > 

•  (modify  1  ~1  done) 

}  (remove  2  3) 

;  ) 

»(p  ebsec-more-ans-rule-4 
i  (goal  ebsec) 

>  (ebsec-more  <n>)  — > 

i  (write  (crlf)  "Sorry:"  <n>  "Not  a  legal  response"  (crlf) 

>  "Please  respond  properly"  (crlf)) 

;  (call  display  ebsec-more-msg ) 

i  (modify  2  A2  (accept)) 

j  (call  clear) 

i  ) 


ii  118  WRITE(LU(2), 119) 

( setq  ebsec-phy siography-more-msg 

'(t  t  5  "SORRY  NOTHIN©  HERE  YET.  WILL  ASSUME  YOU  WANT"  t 
5  "MORE  REGIONAL  BACKGROUND  INFORMATION"  t  t)) 
i  i  GO  TO  25 


LANDFORM  DESCRIPTION 


(p  ebsec-landf orm-rule 
(goal  ebsec) 

(study-region  iEmbayed  Section!  'Atlantic  Coastal  Plain!) 
(ebsec  «  2  If  landforms  »)  — > 

(call  display  ebsec-landf orm-msg ) 

) 


ii  120  WRITE(LU(2).  122) 

(setq  ebsec-landf orm-msg 

'(t  t  “  MAJOR  LANDFORMS  OF  THE  EMBAYED  SECTION."  t 
"  ATLANTIC  COASTAL  PLAIN: "  t  t 

5  "The  major  landform  groups  of  the  Embayed  Section  of  the" 

5  "Atlantic  Coastal  Plain  are: "  t 

10  "The  coastal  shoreline"  t 

10  "Tidal  rivers  and  associated  features"  t 

10  "Coastal  Plain  terraces”  t 

10  "Recent  alluvial  deposits”  t  t 

5  "Associated  with  each  of  these  major  landform  groups"  t 
5  "individual  landforms  which  will  be  described  later."  t)) 

#  # 

ii  WRITE(LU(2), 116) 
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a  READ  ( LU ( 1 ) ,  * ) I ANSD 

ii  ©0  TO  (118,  25.  1000).  I  ANSD 

#  I 

i  J  - 

ii  GEOLOQY/SOILS  DESCRIPTION 

i  i  - - - 

i  i 

i  <p  ebsec-geology-rule 
i  (goal  ebsec) 

i  (study-region  (Embayed  Section!  SAtlantic  Coastal  Plain!) 
i  (ebsec  «  3  g  geology  s  soils  geology/soi Is  »)  — > 
i  (call  display  ebsec-geology-msg ) 

i  ) 

#  i 

ii  130  WRITE(LU(2), 132) 

(setq  ebsec-geology-msg 

'ft  t  "  GEOLOGY  AND  SOILS  OF  THE  EMBAYED  SECTION."  t 
"  ATLANTIC  COASTAL  PLAIN"  t  t 
5  "GEOLOGY"  t 

5  "  The  bedrock  underlying  the  Coastal  Plain  sediments"  t 
5  "  consists  of  grani te/gnei ss.  gneiss  and  schist."  t 
5  "  generally  easterly  tilted,  depending  on  the  landform. "  t 
5  "  These  formations  are  covered  with  marine  or  fluvial"  t 
5  "  sediments.  "  t  t 
5  "SOILS: "  t 

5  ”  The  soils  of  the  Embayed  Section  of  the  Coastal  Plain"  t 
5  "  consist  of  layers  of  marl  (lime),  silt  and  clay,  and"  t 
5  "  sand-clay  and  gravels  in  the  higher  elevations. "  t  t>) 

ii  WRITE(LU(2), 116) 

ii  READ(LU( 1 ) .  *) I ANSD 

ii  GO  TO  (118.  25.  1000).  I  ANSD 


i 

i 


CLIMATE  DESCRIPTION 


i 

(p  eb sec-c 1 imate-ru 1 e 
(goal  ebsec) 

(study-region  .'Embayed  Section!  SAtlantic  Coastal  Plain!) 
(ebsec  «  4  c  climate  »)  — > 

(call  display  ebsec-c limate-msg ) 

) 


ii  140  WRITE(LU(2). 142) 

(setq  ebsec-c 1 imate-msg 

'(t  t  "  CLIMATE  OF  THE  EMBAYED  SECTION,"  t 
"  ATLANTIC  COASTAL  PLAIN"  t  t 

10  "The  climate  in  the  Embayed  Section  of  the  Atlantic"  t 
10  "Coastal  Plain  is  humid  temperate.  Temperatures  vary"  t 
10  "seasonally  with  a  difference  of  36  degrees  mean"  t 
10  "winter  to  summer  temp^rmtur^.  "  t  t)) 

j  # 

ii  WRITE(LU(2). 116) 

ii  READ(LU( 1 ),  *) I ANSD 

ii  GO  TO  (118, 25,  1000),  I ANSD 


DRAINAGE  DESCRIPTION 
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(p  ebsec-drainage— rule 
(goal  ebsec) 

(study-region  lEmbayed  Section!  {Atlantic  Coastal  Plain!) 

(ebsec  «  5  d  drainage  »)  — > 

(call  display  ebsec-drainage-msg ) 

) 

i 

;  150  WR I TE ( LU ( 2 ) < 152) 

(setq  ebsec-drainage-msg 

'(t  t  "  DRAINAGE  OF  THE  EMBAYED  SECTION,"  t 
"  ATLANTIC  COASTAL  PLAIN"  t  t 

5  "  The  drainage  patterns  of  the  Embayed  Section  of  the"  t 
5  "Atlantic  Coastal  Plain  are  defined  by  the  major"  t 
5  “landform  groups: "  t  t 

8  "Tidal  flats,  marshes,  and  meander  systems, "  t 
8  "Lowlands  and  low  terraces  without  developed  patterns"  t 
8  "and  Upper  terraces  with  internal  to  coarse  dendritic"  t 
8  "  patterns  and  some  small  poorly  drained  sections. "  t  t)) 

i  i 

ii  WRITE(LU(2), 116) 

a  READ ( LU ( 1 ) ,  * ) I ANSD 

ii  GOTO  (118.  25,  1000),  I  ANSD 


VEGETATION  DESCRIPTION 


i  (p  ebsec-vegetation-rule 
i  (goal  ebsec) 

i  (study-region  lEmbayed  Section!  {Atlantic  Coastal  Plain!) 
i  (ebsec  «  6  v  vegetation  »)  — > 
i  (call  display  ebsec-vegetation-msg ) 

i  ) 

)  i 

ii  160  WRITE(LU(2). 162) 

(setq  ebsec-vegetation-msg 

'(t  t  "  VEGETATION  OF  THE  EMBAYED  SECTION,"  t 
"  ATLANTIC  COASTAL  PLAIN"  t  t 

5  "  The  natural  vegetation  of  the  Embayed  Section  of  the”  t 
5  “Atlantic  Coastal  Plain  is  ill-defined  because  of"  t 
5  "cultural  activity.  Forest  stands  are  restricted  mainly"  t 
5  "to  preserves,  parks,  and  areas  of  poor  drainage  or"  t 
5  "steep  slopes  such  as  found  in  gullies  or  terrace  faces. "  t 
5  "Grasses,  etc.  are  found  in  cleared  areas,  while  marsh-"  t 
5  "type  vegetation  occur  in  tidal  areas.  "  t  t)) 
ii  WRITE(LU(2>, 116) 

ii  READ ( LU ( 1 ) ,  « ) I ANSD 

ii  GO  TO  (118,  25,  1000),  I  ANSD 


LANDUSE  DESCRIPTION 


i(p  ebsec-landuse-rule 
i  (goal  ebsec) 

i  (study-region  lEmbayed  Section!  'Atlantic  Coastal  Plain!) 
i  (ebsec  «  7  1  lu  landuse  »)  — > 
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(call  display  ebsec-landuse-msg ) 


ii  170  WRITE(LU(2),  172) 

(setq  ebsec-landuse-msg 

'(t  t  “  LANDUSE  OF  THE  EMBAYED  SECTION,  "  t 
"  ATLANTIC  COASTAL  PLAIN'1  t  t 

5  "  The  landuse  of  the  Embayed  Section  of  the  Atlantic"  t 
9  "Coastal  Plain  is  predominantly  agricultural  or"  t 
5  "urban/suburban.  Heavy  industry  is  found  mainly  in”  t 
9  "urban  centers  near  the  coast  or  major  rivers/bays.  "  t 
9  "Dense  transportation  networks  connect  major  urban"  t 
9  "centers.  11  t  t )  ) 
ii  WRITE(LU(2), 116) 

ii  READ ( LU ( 1 ) ,  * ) I ANSD 

ii  GOTO  (118,  29,  1000),  I  ANSD 


MARINE  HYDROLOGY  DESCRIPTION 


i  (p  ebsec-hydrology-rule 

(goal  ebsec) 

(study-region  {Embayed  Section}  lAtlantic  Coastal  Plain!) 

(ebsec  «  8  h  hydrology  marine  m  mar ine/hydrology  »)  — > 

(call  display  ebsec-hy drology-msg ) 

) 

j 

i  180  WRITE(LU(2),  182) 

(setq.  ebsec-hydrology-msg 

'(t  t  "  MARINE  HYDROLOGY  OF  THE  EMBAYED  SECTION."  t 
"  ATLANTIC  COASTAL  PLAIN"  t  t 

10  "The  marine  hydrology  of  the  Embayed  Section  of  the"  t 
9  "Atlantic  Coastal  Plain  will  be  added  later  to  describe"  t 
9  "marine  conditions  along  the  coastline  and  tidal  rivers."  t  t)) 

ii  WRITE(LU(2).  116) 

ii  READ(LU( 1 ) ,  *) I ANSD 

ii  GO  TO  (118.  25,  1000).  I  ANSD 


RETURN  TO  EXECUTIVE  PROGRAM 


i(p  ebsec-done-rule 
i  (goal  ebsec) 
i  (ebsec  «  O  ok  »)  — > 

i  (modify  1  *1  done) 

i  (remove  2) 


ebsec-quit-rule 
(goal  ebsec) 

(ebsec  «  9  e  exit  ») 
(remove  1  2) 

(halt) 


1000  IF( IPICK.  EQ.  9) GO  TO  1009 
CALL  EXEC (8, ICALAP) 
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>  rega. 1  Regional  Analysis  Program 

»  Fortran  System:  Robert  Leighty  USAETL 

j  0PS5  System:  Kenneth  Hayes  Smart  Systems  Technology 

i  DUCK  System:  Kenneth  Hayes  Smart  Systems  Technology 

;;  PROGRAM  REGA ( 5) 

i  i 

■,  ■,  a**************************************************************** 

i  i 

i  >  REGIONAL  ANALYSIS  SEGMENT  FOR  PROGRAM  CALAP. 

i  i 

i i  RDL.  MAY  81 


****************************************************************** 


ADMIN  NOTES: 
100  STMTS 
200  STMTS 
300  STMTS 
400  STMTS 
500  STMTS 
700  STMTS 
1000  STMTS 


INTRO  &  <20 ' 
LOW  TERRACE 
MID  TERRACE 
HIGH  TERRACE 
DRAINAGE 
SPECIAL 
SUMMARY 


COMMON  LU ( 5 ) <  MLAT 1 ( 3 ) >  MLON 1(3). MLAT2 ( 3 ) »  ML0N2 ( 3 ) <  ISTEP,  MINR. 

*  MAXR# MINS.  MAXS 

COMMON  IRC.  ISC.  IRCE.  ISCE.  IRTR.  ISTR.  IRTRE,  ISTRE.  IRLC. 

*  IRLAC.  ISLC,  ISLTR.  ISLAC.  ISMC.  ISMTR.  IRTRR.  IRTRM,  IRTRS,  ISTRR, 

*  ISTRM,  ISTRS.  ISMZ.  IRT10. IRT1C, IRT1TR.  IST10,  IST1C.  IST1TR,  IRT20, 

*  IST20.  IRT30.  IST30,  IRAC.  IRACM,  IRACML.  IRACMH,  IRARF,  IRACD,  IRACDH, 

*  IRS.  IRSM,  IRSMH.  IRSD.  IRSDH.  IRSG.  IRSGI.  ISAC,  ISACM,  ISACMH,  ISARF, 

*  ISACD.  ISACDH.  ISS.  ISSM.  ISSDH,  ISSG.  ISSGI.  IRLTR,  ISSD.  ISSMH, 

*  IRGP (20) . IRRG(20), ISGP(20), ISRGC20), IRTRI. ISTRI 

DIMENSION  ICALAP (3 ) . IYES<2). IN0<2), IBEGIN(3) 

DATA  ICALAP/2HXC, 2HAP, 2HI  / 

DATA  IYES/2HYE.  2HS  /.  IN0/2HN0,  2H  / 

DATA  IBEGIN/2HBE. 2HGI. 2HN  / 


INITIALIZE  DECISION  VARIABLES 


CALL  REGIN 


INTRODUCTION 


(lisprule  rega-rule  (goal  rega)  -> 
(display  'rega-main-msg  nil) 
(pause ) 

(display  'rega-sr-elv-msg  nil) 
(pause ) 
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(prog  Cal  a2  a3  a4] 
rtop  (display  'rega-sr-elv-msg-2  nil) 

(msg  t  "min: " ) 

( : =  al  (  dread ) ) 

(msg  t  "max: " ) 

( : =  a2  ( dread  )  ) 

(cond  C(and  (numberp  al)  (numberp  a2)  (lessp  al  a2)  ) 

(display  'rega-sr-e 1 v-prt-msg  '(,al  >a 2>) 

(cond  C(is-yes  (dread)) 

(go  atop ) 1 

Ct  (display  'rega-sr-e lv-aga in-msg  nil)])] 

Ct  (msg  t  "Bad  elevation  values"  t  "Try  again"  t)]) 

(go  r top ) 

atop  (display  'rega-sa-elv-msg  nil) 

(pause ) 

(display  'rega-sa-e 1 v-msg-2  nil) 

( msg  t  "min:  "  ) 

( :  -  a3  (dread  )  ) 

(msg  t  "max : " ) 

( :  =  a4  (dread  )  ) 

(cond  C(and  (numberp  a3)  (numberp  a4) 

(lessp  a3  a4) 

<=<  al  a3)  (=<  a4  a2) ) 

(display  'rega-sr-elv-prt-msg  ' (>a3  »a4)) 

(cond  C(is-yes  (dread)) 

(premiss  ' (ansuer  srmin  .  al)) 

(premiss  '(ansuer  srmax  .  a2)) 

(premiss  '(ansuer  samin  ,  a3)) 

(premiss  '(ansuer  samax  <a4>) 

(return ) ] 

Ct  (display  'rega-sr-elv-again-msg  nil) 

(go  atop ) 3 ) 3 

Ct  (display  'rega-sa-elv-kvetch-msg  '(»al  » a2  » a3  » a4) ) 
(go  rtop ) ] ) 

) 

(display  'rega-map-photo-msg  nil) 

( pause ) 

(cond  C(lessp  (gans  srmin)  20)  (premiss  '(goal  ocean-tidal-river))]) 
(cond  C(and  (lessp  (gans  srmin)  100)  (greaterp  (gans  srmax)  20)) 
(premiss  '(goal  lou-ter))]) 

(cond  C(and  (lessp  (gans  srmin)  170)  (greaterp  (gans  srmax)  100)) 
(premiss  '(goal  mid-ter))]) 

(cond  C(and  (lessp  (gans  srmin)  270)  (greaterp  (gans  srmax)  170)) 
(premiss  '(goal  high-ter))]) 

(premiss  '(goal  drainage)) 

(premiss  '(goal  special)) 

(premiss  '(goal  listing)) 

(premiss  '(done  rega)) 

) 

i 

(lisprule  rega-o-t-r  (goal  ocean-tidal-river)  -> 

(premiss  '(ask-n  s-r-c oasta l-shor e 1 ine 

rega-shore-ques-l 
s-a-c oasta l-shor e 1 ine ) ) 

(cond  C(and  (gans  s-t — coastal-shoreline) 

(lessp  (gans  samin)  20)) 

(user  's-a-coastal-shorel ine  'rega-shore-ques-2) 

(cond  C(gans  s-a-c oas ta 1 -sh or e 1 ine ) 

(user  's-a-coastal-shorel ine-ext 
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'rega-sa-shore-ext-ques  >  3 
Ct  (user  's-r-coastal-shorel ine-ext 
'rega-sr-shore-ext-ques ) 3 ) 


(premiss  '(ask-n  s-r-tidal-r iver  rega-tidal-r iver-q-1  s-a-tidal-river ) ) 
(cond  C(gans  s-r-tidal-r iver )  (premiss  '(goal  triver))3 
Ct  (premiss  '(goal  ntriver)>3) 


(lisprule  rega-notr iver  (goal  ntriver)  -> 

(display  'rega-no-c-no-tr-low-msg-i  nil) 

(premiss  '(ask-n  s-r-low-coastal-shorel ine 

rega-no-c-no-tr-low-msg-2 
s-a-low-coastal-shoreline) ) 

(cond  C(gans  s-r-loui-coastal-shorel  ine )  3 

C(progn  (premiss  '(ask-n  s-r-low-tidal-river 

rega-no-c-no-tr-lou»-msg-3 
s-a-low-tidal-river ) ) 

(gans  s-r-low-tidal-r iver ) ) 3 
C(progn  (premiss  '(ask-n  s-r-low-al luvial-channel 

rega-no-c-no-tr-loui-msg-4 
s-a-low-al  luvial-channel ) ) 
(gans  s-r-low-al luvial-channel ) ) 3 
Ct  (display  'rega-no-c-no-tr-low-msg-5  nil) 

(display  'rega-no-c-no-tr-1 ow-msg-6  nil)3) 

(cond  Cdessp  (gans  samin)  20) 

(display  'rega-120-msg-l  nil) 

(cond  C(gans  s-r-low-coastl ine ) 

(user  's-a-low-coastal-shorel ine 
'rega-120-msg-2) 3 ) 

(cond  C(gans  s-r-loui-tidal-river ) 

(user  's-a-low-tidal-river 
'rega-120-msg-3>3) 

(cond  C(gans  s-r-low-al luvial-channel ) 

(user  's-a-low— al luvial-channel 
'rega-120-msg-4>  3 ) 

(premiss  '(goal  low-sa-max ) ) 3 
Ct  (premiss  '(goal  low-sr-max ) ) 3 ) 


(lisprule  rega-triver  (goal  triver)  -> 

(premiss  '(ask-n  s-r-tidal-river-islands 

rega-sr-tr-i sland-q 
s-a-tidal-r iver-i s lands ) ) 

(premiss  '(ask-n  s-r-tidal-river-roc k 

rega-sr-tr-roc  k-q 
s-a-tidal-river— roc  k ) ) 

(premiss  '(ask-n  s-r-tidal-r iver-mud 

rega-sr-tr-mud-q 
s-a-tidal-river-mud ) ) 

(premiss  '(ask-n  s-r-tidal-r iver-sand 

rega-sr-tr-sand-q 
s-a-tidal-r iver-sand ) ) 

(cond  Cdessp  (gans  srmin)  20) 

(user  's-a-tidal-river  'r ega-sa-t i da 1-r i ver-q ) 
(cond  C(gans  s-a-tidal-river ) 

(user  's-a-tidal-river-islands 

'rega-sa-tidal-river-islands-q) 
(user  's-a-tidal-rivei — rock 
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( premiss 
) 


3) 


(user 
( user 
(user 
[t  (user 


'rega-sa-tidal-river-roc  k-q) 
's-a-ti da  1 -river-mud 
'rega-sa-tidal-r iver-mud-q) 

7 s-a-ti dal -river-sand 
'rega-sa-tidal-r iver-sand-q) 
's-a-ti da 1-rivei — ext 
'rega-sr-tr-sa-tr-msg ) 3 
's-r-tidal-r iver-ext 
'rega-sr-tr-no-sa-tr-msg ) 3 ) 


'(goal  low-sa-max ) ) 


(lisprule  rega-low-sa-max  (goal  low-sa-max)  -> 

(cond  [(not  (lessp  (gans  samax)  20))3 

C (user  's-a-max-coastal-shorel ine 
'rega-1 120-msg-l ) 3 
[(user  's-a-max-tidal-river 
'rega-1120-msg-2) 3 
[(user  's-a-max-un-assoc iated 
'rega-1120-msg-3) 3 ) 

(premiss  '(goal  low-sr-max)) 

) 

i 

(lisprule  rega-low-sr-max  (goal  lou-sr-max)  -> 

(msg  t  "No  statements  for  low  study  region  maximum  elevation"  t) 
) 


(lisprule  rega-loui-ter  (goal  low-ter)  -> 

(display  'rega-sr-ltr-msg-1  nil) 

(display  'rega-sr-ltr-msg-2  nil) 

(pause) 

(display  'rega-sr-ltr-msg-3  nil) 

(premiss  Mask-n  s-r-low-terraces 

rega-sr-1 tr-msg-4 
i-a-loui-terraces)  ) 

(cond  [(gans  s-r-low-terraces) 

(cond  [(gans  s-r-coastal-shoreline) 

(premiss  Mask-n  s-r-low-terraces-near-coast 

rega-sr-1 tr-msg -5 

s-a- 1 o w- t err aces-n ear-coast ) ) 3 ) 

(cond  [(gans  s-r-tidal-r iver ) 

(premiss  Mask-n  s-r-low-terraces-near-tidal-river 

rega-sr-1 tr-msg -6 

s-a- low-terraces-near-ti dal -river ) ) 3 ) 
3) 


(cond  [(and  (lessp  (gans  samin)  100)  (greaterp  (gans  samax)  20)) 
(premiss  Mask  s-a-low-terraces  rega-sa-ltr-msg-1  nil)) 
(cond  [(gans  s-a-coastal-shorel ine ) 

(premiss  '(ask  s-a-low-terraces-near-coast 
rega-sa-ltr-msg-2  nil))3) 

(cond  [(gans  s-a-tidal-river ) 

(premiss  '(ask  s-a-low-terraces-near-tidal-r iver 
rega-sa-1 tr-msg-3  nil)) 3) 


3) 


) 


(lisprule  rega-mid-ter  (goal  mid-ter)  -> 
(display  'rega-sr-mtr-msg-1  nil) 
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(display  'rega-sr-mtr-msg-2  nil) 

(pause ) 

(display  'rega-sr-mtr-msg-3  nil) 

(premiss  '(ask-n  s-r-mid-terraces 

rega-sr-mtr-msg-4 
s-a-mid-t err aces ) ) 

(cond  C(and  (lessp  (gans  samin)  170)  (greaterp  (gans  samax)  100)) 
(premiss  '(ask  s-a-mid-terraces  rega-sa-mtr-msg-1  nil))]) 


) 


(lisprule  rega-h igh-ter  (goal  high-ter)  -> 

(display  'rega-sr-htr-msg-1  nil) 

(display  'rega-sr-htr-msg-2  nil) 

( pause ) 

(display  'rega-sr-htr-msg-3  nil) 

(premiss  '(ask-n  s-r-h igh-terraces 

rega-sr-h tr-msg-4 
s-a-h igh-terrac es ) ) 

(cond  C(and  (lessp  (gans  samin)  270)  (greaterp  (gans  samax) 
(premiss  '(ask  s-a-high-terraces  rega-sa-hti — msg-1 


) 


170)  ) 
nil))]) 


(lisprule  rega-drainage  (goal  drainage)  -> 

(display  'rega-sr-drg-msg-1  nil) 

( pause ) 

(cond  [(user  's-r-rivers  'rega-sr-drg-msg-2) 

(cond  [(user  's-r-meandering-r i vers  'rega-sr-drg-msg-3) 
(cond  [(greaterp  (gans  srmax)  100) 

(user  's-r-low-meandering-rivers 
'rega-sr-drg-msg-4) ] ) 

(cond  [(greaterp  (gans  srmin)  100) 

(user  's-r-h igh-meander ing-ri vers 
'rega-sr-drg-msg-5) ] ) ] ) 

(user  's-r-rap id/fal 1-rivers  'rega-sr-drg-msg-6) 

(cond  [(user  's-r-def lected-r ivers  'rega-si — drg-msg-7) 
(cond  [(greaterp  (gans  srmin)  100) 

(user  's-r-h igh-def lected-r ivers 
'rega-sr-drg-msg-8) ] ) ] ) ] 

[t  (premiss  '(answer  s-a-rivers  nil))]) 

(cond  [(user  's-r-streams  'rega-sr-drg-msg-9) 

(cond  C(user  's-r-meander ing-streams  'rega-sr-drg-msg-10) 
(cond  [(greaterp  (gans  srmax)  100) 

(user  's-r-h igh-meander ing-streams 
'rega-sr-drg-msg-1 1 ) ] ) ] ) 

(cond  [(user  's-r-distributary-segments 
'rega-sr-drg-msg-12 ) 

(cond  [(greaterp  (gans  srmax)  100) 

(user  ' s-r-h igh-d is tri but ary -segments 
'rega-sr-drg-msg-1 3) ] ) ] ) 

(cond  [(user  's-r-strange-grad ients  'rega-sr-drg-msg-14 ) 
(user  's-r-strange-grad ients-incised 
'rega-sr-drg-msg-1 5 ) ] ) ] 

[t  (premiss  '(answer  s-a-streams  nil))]) 

(cond  [(and  (gans  s-r-rivers) 

(user  's-a-rivers  'rega-sa-drg-msg-1 ) ) 

(cond  [(user  's-a-meandering-rivers  'rega-sa-drg-msg-2) 
(cond  [(greaterp  (gans  samax)  100) 

(user  ' s-a-h i gh -meander ing-ri vers 
'rega-sa-drg-msg-3) ] ) ] ) 
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( cond 


) 


(user  's-a-rapid/fall-rivers  'rega-sa-drg-msg-4) 

(cond  [(user  's-a-def lected-rivers  'rega-sa-drg-msg-5) 
(cond  [(greaterp  (gans  samax)  100) 

(user  ' s-a-h igh-def lected-rivers 
'rega-sa-drg-msg-6) 3)3)3) 

[(and  (gans  s-r-streams > 

(user  's-a-streams  'rega-sa-drg-msg-7) ) 

(cond  [(user  's-a-meandering-streams 
'rega-sa-drg-msg-B) 

(cond  [(greaterp  (gans  samax)  100) 

(user  's-a-h igh-meander ing -streams 
'rega-sa-drg-msg-9) 3)3) 

(cond  [(user  's-a-distributary-segments 
'rega-sa-drg-msg-10) 

(cond  [(greaterp  (gans  samax)  100) 

(user  's-a-hig‘  -distributary-segments 
'rega-sa  urg-msg-1 1 ) 3 ) 3 ) 

(cond  [(user  's-a-strange-gradients 
'rega-sa-drg-msg-12) 

(user  's-a-strange-grad ients-inc ised 
'rega-sa-drg-msg-13) 3)3) 


(lisprule  rega-special  (goal  special)  -> 

(prog  [al3 

(display  /rega-special-msg  nil) 

(display  'rega-spc-p its-msg-1  nil) 

( pause ) 

(display  'rega-spc-pits-msg-2  nil) 

( :  =  al  ( dread ) ) 

(premiss  '(answer  s-r-gravel-p its  >  (and  al  t>)) 
(premiss  ' (spansuer  s-r-gravel-pits  (tup  . .al))) 
(display  'rega-spc-p its-msg-3  nil) 

(: -  al  (dread)) 

(premiss  '(answer  s-a-gravel-pits  .(and  al  t))) 
(premiss  ' (spanswer  s-a-gravel-pits  (tup  ,.al))) 
(display  'rega-spc-quarry-msg-l  nil) 

( : »  al  (dread ) ) 

(premiss  '(answer  s-r-quarry  .(and  al  t))) 
(premiss  '(spanswer  s-r-quarry  (tup  ..al))) 
(display  'rega-spc-quarry-msg-2  nil) 

( :  =  al  ( dread ) ) 

(premiss  '(answer  s-a-quarry  .(and  al  t)>) 
(premiss  '(spanswer  s-a-quarry  (tup  ..al))) 

) 


(lisprule  rega-listing  (goal  listing)  -> 

(display  'rega-l i sting-start-msg  nil) 

( pause ) 

(display  'rega-l i st-headei — msg  nil) 

(display  'rega-l ist-elv-msg 

(list  (gans  srmin)  (gans  srmax)  (gans  samin)  (gans  samax))) 
(display  'rega-l i st-sr-msg-1  nil) 

(display-tf  'rega-l i st-sr-msg-2 

(list  (gans+  s-r-coastal-shorel ine ) 

(gans+  s-r-coastal-shorel ine-ext ) 

(gans+  s-r-tidal-river ) 

(gans+  s-i — tidal-river-ext ) ) ) 
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(display-tf  'rega-l i st-sr-msg-3 

(list  (gans+  s-r-tidal-r ivei — islands) 

(gans+  s-r-low-c  oasta 1-shoreline) 

(gans+  s-r-low-tidal-r iver ) 

( gans+  s-r-low-al 1 uvi a 1 -channel ) ) ) 
(display-tf  'rega-l i st-sr-msg-4 

(list  (gans+  s-r-tidal-river-rock ) 

(gans-*-  s-r-tidal-river-mud ) 

(gans+  s-r-tidal-river-sand ) 

(gans-*-  s-r-loui-terraces ) )  ) 

(display-tf  'rega-l i st-sr-msg-5 

(list  (gans+  s-r-loui-terraces-near-coast ) 

(gans+  s-r-low-terraces-near-tidal-r iver ) 
(gans+  s-r-mid-terraces ) 

(gans+  s-r-h igh-terraces ))  ) 

(display-tf  'rega-list-sr-msg-6 

(list  (gans-*-  s-r-rivers) 

(gans+  s-r-meand er ing-r iver s ) 

(gans+  s-r-lou»-meander ing-r ivers )  > ) 
(display-tf  'rega-l i st-sr-msg-7 

(list  (gans+  s-r-h igh-meandering-rivers ) 

(gans+  s-r-rap i d/f a  1 1-r i vers ) 

(gans+  s-r-def lected-r ivers )) ) 

(display-tf  'rega-l ist-sr-msg-8 

(list  (gans+  s-r-high-def lected-rivers ) 

(gans+  s-r-streams) 

(gans+  s-r-meander ing-streams ) 

(gans+  s-r-h igh-meander ing-streams ) ) ) 
(display-tf  'rega-l ist-sr-msg-9 

(list  (gans+  s-r-distributary-segments ) 

(gans+  s-r-h igh-distr ibutary-segments ) 
(gans+  s-t — strange- gradients) 

(gans+  s-r-strange-gradients-incised ) ) ) 
(display-and  'rega-l is t-sr-msg-10 

(gans  s-r-gravel-pits) 

(gansp  s— r-gravel— pits > ) 

( display-and  'rega-l is t-sr-msg-1 1 
(gans  s-r-quarry) 

(gansp  s-r-quarry ) ) 

(display  'rega-l i st-sa-msg-1  nil) 

(display-tf  'rega-list-sa-msg-2 

(list  (gans+  s-a-coastal-shorel ine) 

(gans-*-  s-a-c oasta  1-shorel  ine-ext ) 

(gans-*-  s-a-tidal-r iver > 

(gans-*  s-a-tidal-river-ext )  ) ) 

(display-tf  'rega-l i st-sa-msg-3 

(list  (gans-*-  s-a-tidal-r  iver-islands  ) 

( gans-*-  s-a-loui-c  oasta  1-shorel  ine) 

(gans-*-  s-a-low-tidal-river ) 

(gans-*-  s-a-lou-al  luvia  1-c hanne  1 )  )  ) 
(display-tf  'rega-l ist-sa-msg-4 

(list  (gans-*-  s-a-max-coastal-shorel  ine) 

(gans-*-  s-a-max-tidal-river ) 

(gans-*-  s-a-max-un-assoc iated ) 

(gans-*-  s-a-tidal-r iver-roc  k  ))  ) 

(display-tf  'rega-l i st-sa-msg-5 

(list  (gans-*-  s-a-tidal-r  iver-mud  ) 

(gans-*-  s-a-tidal-river-sand ) 

<gans+  s-a-loui-terraces ) 
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(display-tf 


(display-tf 


(display-tf 


(display-tf 


(display-and 


(display-and 


) 


(gans+  s-a-low-terraces-near-coast )  )  ) 
'rega-1 i st-sa-msg -6 

(list  (gans+  s-a-low-terraces-neai — tidal-river) 
(gans+  s-a-mid-terraces ) 

(gans+  s-a-h igh-terraces ) 

(gans+  s-a-r iver s  ) ) ) 

'rega-1 is t-sa-msg-7 

(list  (gans+  s-a-meandering-rivers ) 

(gans*  s-a-h igh-meander in g -rivers ) 

(gans+  s-a-rap id/fal 1-rivers ) 

(gans+  s-a-def lected-rivers ) > ) 

'rega-1 i st-sa-msg-8 

(list  (gans+  s-a-h igh-def lected-rivers ) 

(gans+  s-a-streams) 

(gans+  s-a-meander ing-str earns ) 

(gans+  s-a-h igh-meander ing-streams > ) ) 
'rega-1 i st-sa-msg -9 

(list  (gans+  s-a-d i str ibutary-segments ) 

( gans+  s-a-h igh-d i str ibutary-segments ) 
(gans+  s-a-strange-grad ients ) 

(gans+  s-a-strange-gradients-incised ) ) ) 
'rega-1 is t-sa-msg-10 
(gans  s-a-gravel-pits ) 

(gansp  s-a-gravel-pits) ) 

'rega-1 i st-sa-msg -1 1 
(gans  s-a-quarry) 

(gansp  s-a-quarry)) 


i  (p  rega-rule-1 
i  (goal  rega)  — > 

#  (call  display  rega-main-msg ) 

;  (make  rega  sr-elv) 

;  (call  pause) 

i  ) 

;(p  rega-done-rule 
i  (goal  rega) 

;  (rega  done)  — > 

»  (modify  1  '‘‘l  done) 

i  (remove  2) 

i  ) 

i  i 

a  WRITE(LU(2)» 5) 

(setq  rega-main-msg 

'(t  t  "  ************REGIONAL  ANALYSIS*******************1 * * * 5 * * * * * ii'  t  t 

5  "Me  are  about  to  begin  the  regional  analysis  phase  of"  t 

5  "landform  analysis.  In  this  phase  of  the  investigation"  t 

5  "we  u»ill  define  which  of  the  major  landform  groups  are"  t 
5  "found  in  our  'study  region'  (the  area  covered  by  the"  t 
5  "map  sheet)  and  our  'study  area'.  In  the  detailed"  t 
5  "analysis  phase  following  this  regional  analysis  phase"  t 
5  "we  will  identify  and  partition  the  individual  terrain”  t 
5  "or  topographic  forms  of  the  landform  groups  within  the"  t 
5  "study  area. "  t  t)> 

i  i 

i  i  6  MR  I TE  ( LU  ( 2 ) «  7 ) 

;  >  ( setq  rega-msg 

ii  '(t  t  "  Type  'go'  to  continue"  t  t  t  t)) 

i i  PAUSE  1 
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ENTER  REGIONAL  MINIMUM  AND  MAXIMUM  TERRAIN  ELEVATIONS 


»(p  sr- elv-rule-1 
i  (goal  rega) 

»  (rega  sr-elv>  — > 

>  (call  display  rega-sr-elv-msg ) 

<  (call  pause) 

i  (call  display  rega-sr-elv-msg-2) 

;  (make  sr-elv) 

;  ) 

»  * 

i  i  9  WRITE (LU(2) »  10) 

(setq  rega-sr-elv-msg 

'(t  t  t  "The  information  we  need  to  begin  the  regional”  t 
"  analysis  relates  to  terrain  elevations  on  your  map"  t 
"  sheet.  "  t  t 

5  "Locate  the  minimum  and  maximum  terrain  elevations"  t 
5  "on  the  map  sheet.  In  general*  the  study  region  minimum"  t 
5  "elevation  will  be  found  on  the  edge  of  the  map  sheet. "  t  t)) 

ii  WR ITE ( LU ( 2 ) »  7 ) 

;  ;  PAUSE  2 

i  i 

;(p  sr-elv-rule-2 

*  (goal  rega) 

;  (rega  sr-elv) 

*  (sr-elv)  — > 

j  (write  (crlf)  "min  max:") 

>  (make  s-r-elevation  (accept)  (accept)) 

i  (call  clear) 

i  ) 

*  i 

ii  WRITE(LU(2)< 15) 

(setq  rega-sr-elv-msg-2 

'(t  t  "  Now  enter  the  minimum  and  maximum  study  region  elevation.  "  t 
"  Hereafter  these  elevations  will"  t 

"  be  referred  to  as  the  study  region  minimum  and  maximum.  "  t  t)) 
ii  20  READ(LU(1).  *)MINR.MAXR 
ii  WRITE(LU(2).  22)MINR, MAXR 

i  i 

i  (p  sr-elv-rule-3 
i  (goal  rega) 

i  (rega  sr-elv) 

i  (sr-elv) 

i  (s-r-elevation  <0>  1  <min>>.  <<=>  1  >*=  <min>  <max».)  — > 
i  (call  display  rega-sr-elv-prt-msg  <min>  <max>) 

i  (call  yes-no  sr-elv-check ) 

i  ) 

/  i 

(setq  rega-sr-elv-prt-msg 

'(t  t  ”  The  minimum  and  maximum  values  typed  were:"  t  t 
5  (o  1)  "  and  "  (o  2)  t  t 
"  Are  these  values  correct?"  t  t)) 


(p  sr-el v-rule-4 
(goal  rega) 
(rega  sr-elv) 
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i  (sr-elv) 

»  < s-r-elevation )  — > 

i  (write  (crlf)  "Bad  elevation  values"  (crlf)  "Try  again"  (crlf)) 

;  (modify  3  A1  sr-elv) 

;  (remove  4) 

i  ) 

i  i 

a  READ < LU < 1 ), 24)1 ANSD 

ii  24  FORMAT (2A2) 

;;  IF  ( 1  ANSD.  EQ.  I  YES)  00  TO  30 

ii  WRITE(LU(2), 26) 

»  i 

i(p  sr-el v-ok-rule 
i  (goal  rega) 

i  (rega  sr-elv) 

i  (sr-elv) 
i  (s-r-elevation) 
i  ( sr-elv-chec k  t)  — > 
i  (modify  2  ~2  sa-elv) 

i  (remove  3  5) 

i  ) 

»  i 

(setq  rega-sr-elv-again-msg 

'("  OKi  Retype  the  correct  elevation  values."  t  t)) 

i i  00  TO  20 

>  i 

i(p  sr-elv-again-rule 
i  (goal  rega) 

i  (rega  sr-elv) 

i  (sr-elv) 
i  (s-r-elevation) 
i  ( sr-elv-chec k )  — > 

i  (call  display  rega-sr-elv-again-msg ) 

i  (modify  3  ~1  sr-elv) 

i  (remove  4  5) 

i  ) 


ENTER  STUDY  AREA  MINIMUM  AND  MAXIMUM  TERRAIN  ELEVATIONS 


(p  sa-elv-rule-1 
(goal  rega) 

(rega  sa-elv)  — > 

(call  display  rega-sa-elv-msg ) 

(call  pause) 

(call  display  rega-sa-elv-msg-2) 

(make  sa-elv) 

) 

f 

i  30  WRITE(LU(2),  35) 

(setq  rega-sa-elv-msg 

'(t  t  "  The  next  information  we  need  is  also  related  to"  t 
"  terrain  elevations:  "  t  t 

5  "Locate  the  minimum  and  maximum  terrain  elevations"  t 
5  "for  the  'study  area'  from  the  map  sheet.  Note  that"  t 
5  "the  minimum  elevation  will  usually  be  found  on  the”  t 
5  "edge  of  the  study  area. "  t  t)) 
ii  WR I TE ( LU ( 2 ) »  7 ) 
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>  i  PAUSE  3 

t  i 

;<p  »a-elv-rule-2 

>  (goal  rega) 

*  (rega  sa-elv) 

»  (sa-elv)  — > 

»  (write  (crlf)  "min  max:") 

<  (make  s-a-elevation  (accept)  (accept)) 

;  (call  clear) 

>  ) 

i  i 

ii  WR I TE ( LU ( 2 ) .  37 ) 

(setq  rega-sa-el v-msg-2 

'<t  t  "  Now  enter  these  elevation  values  into  the  system.  "  t  t)) 

i 

(p  sa-el v-rul e-3 
(goal  rega) 

(rega  sa-elv) 

( sa-elv) 

( s-a-elevation  <<»>  1  <min>>.  «=>  1  >»  <min>  <max>>.) 

( s-r-elevation  «»  <min>  <rmin>>.  O*  <max>  <rmax».)  — > 

(call  display  rega-sr-elv-prt-msg  <min>  <max>) 

(call  yes-no  sa-elv-check ) 

) 

i  40  READ(LU( 1 ) • *)MINS* MAXS 

;  CHECK  ELEVATION  VALUES  FOR  CONSISTENCY 

i  IF(  (MINR.  LE.  MINS).  AND.  (MAXR.  GE.  MAXS)  )GO  TO  46 

i  IF  AN  INCONSISTENCY  IS  DETECTED*  THEN  SHOW  ERROR  AND  REPEAT  INPUT 

i  I F ( M I NR .  OT.  MINS) WRITE (LU (2) *  42) MINR* MINS 

i  IF ( MAXR.  LT.  MAXS) WRITE (LU( 2) *  44) MAXR* MAXS 

i 

(p  sa-elv-rule-4 
(goal  rega) 

(rega  sa-elv) 

( sa-elv) 

( s-a-elevation  <samin>  <samax>) 

(s-r-elevation  <srmin>  <srmax>)  — > 

(call  display  rega-sa-elv-kvetch-msg  <srmin>  <samin>  <srmax>  <samax>) 
(modify  2  ~1  sr-elv) 

(remove  345) 

) 

(setq  rega-sa-el v-kvetch-msg 

' ( t  t  "  STUDY  REGION  MINIMUM  ELEVATION  MUST  BE  EQUAL"  t 
"  TO  OR  LESS  THAN  STUDY  AREA  MINIMUM  ELEVATION.  "  t  t 
"  YOUR  VALUES  WERE: "  t 
5  "Study  region  minimum  »  "  (o  1)  t 

5  "Study  area  minimum  =  "  (o  2)  t  t 

t  t  "  STUDY  REGION  MAXIMUM  ELEVATION  MUST  BE  GREATER"  t 
"  THAN  OR  EQUAL  TO  THE  STUDY  AREA  MAXIMUM  ELEVATION. "  t  t 
"  YOUR  VALUES  WERE: "  t 
5  "Study  region  maximum  »  "  (o  3)  t 

5  "Study  area  maximum  ■  "  (o  4)  t  t 

"  LET'S  TRY  AGAIN  FROM  THE  TOP"  t  t)> 

i  i 

»(p  sa-elv-ok-rule 
>  (goal  rega) 

*  (rega  sa-elv) 
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( sa-elv) 

<  s-a-elevation  > 

< sa-elv-chec k  t)  — > 

(modify  2  *2  map-photo) 

(remove  3  5) 

> 

GO  TO  9 

PRINT  OF  CONSISTENT  ELEVATION  VALUES  &  CHECK  FOR  CORRECTIONS 
46  WRITE(LU(2) ,  22) MINS,  MAXS 
READ(LU( 1 )»  24) IANSO 
IFdANSD.  EQ.  I  YES)  GO  TO  50 
WRITE ( LU ( 2 ) » 26 ) 

GO  TO  40 

(p  sa-elv-again-rul e 
(goal  rega) 

(rega  sa-elv) 

( sa-elv) 

(s-a-elevation) 

(sa-elv-check )  — > 

(call  display  rega-sr-elv-again-msg ) 

(modify  3  'M  sa-elv) 

(remove  4  5) 

) 


COORDINATE  MAP  AND  PHOTOS 


(p  rega-map-photo-rule 
(goal  rega) 

(rega  map-photo)  — > 

(call  display  rega-map-photo-msg ) 

(modify  2  ~2  q75) 

(call  pause) 

) 

i 

i  50  WR I TE ( LU ( 2 ) < 55) 

(setq  rega-map-photo-msg 

'(t  t  5  "  Now  take  a  few  minutes  to  locate  the  points"  t 
5  "of  minimum  and  maximum  terrain  elevations  of  the"  t 
5  "'study  area'  (determined  from  the  map)  on  the  photos. "  t 
t  5  "In  a  similar  manner  locate  the  minimum  and  maximum”  t 
5  "terrain  elevations  of  the  'study  region'  on  the  photos"  t 
5  "if  your  photos  extend  to  these  points. "  t  t 
"  I'll  Wait.  "  t  t) ) 
i  PAUSE  4 

f 

i  #****#***#*****«#**«*#*««***«*«***********»*******#***«***«****** 

i  BRANCH  TO  TERRAIN  LANDFORM  GROUP  APPROPRIATE  FOR  MINIMUM 
i  REGIONAL  ELEVATION  -  MINR 

;  ***************************************************************** 

» 

i  75  IF (MINR.  GE.  20)00  TO  200 


QUESTIONS  RELATED  TO  EXISTENCE  OF  SHORELINE  IN  REGION  OR 
STUDY  AREA 
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<p  rega-q/5-rule 
(goal  rega) 

(rega  q75) 

(s-r-elevation  <  20) 

< s-r-coastal-shoreline  unasked)  — > 
(call  display  rega-shore-ques-1 ) 
(call  yes-no  s-r-coastal-shoreline) 
(modify  2  A2  shore) 

(remove  4) 


ii  MR  I TE  ( LU  ( 2 ) «  80 ) 

(setq  rega-shore-ques-1 

'(t  t  5  "Does  an  ocean  shoreline  occur  in  the 
5  "study  region?"  t  t)) 
i  i  READ ( LU ( 1 ) ,  * ) IRC 


IF  IROO.  THEN  BY  DEFINITION  IS C=0  &  GO  TO  TIDAL  RIVER  QUESTION. 


(p  rega-sr-no-shore-rule 
(goal  rega) 

(rega  shore) 

(s-r-coastal-shoreline  nil) 
(s-a-coastal-shoreline)  — > 

(modify  2  ^2  sr-tidal-river ) 

(modify  4  ~2  nil  rega-sr-no-shore-rule) 


IF  (IRC.  NE.  l)GO  TO  90 


IF  MINS. GE.  20',  THEN  COASTLINE  CANNOT  EXIST  IN  STUDY  AREA 


(p  rega-sa-no-shore-rule 
(goal  rega) 

(rega  shore) 

( s-a-elevation  >=*  20) 

( s-a-coastal-shorel ine  unasked)  — > 
(modify  2  A2  sr-tidal-river ) 

(modify  4  *2  nil  rega-sa-no-sh ore-rul e ) 


IF  (MINS.  GE.  20)  GO  TO  90 
WRITE(LU(2),  85) 

(p  rega-sa-shore-rule 
(goal  rega) 

(rega  shore) 

(s-r-coastal-shoreline  t) 
(s-a-coastal-shoreline  unasked)  — > 
(call  display  rega-shore-ques-2) 
(call  yes-no  s-a-coastal-shoreline) 
(remove  4) 


V  ■ 
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(setq  rega-shore-ques-2 

'(t  t  5  "Does  the  ocean  shoreline  occur  in  the"  t 
5  "study  area?"  t  t)) 
i;  READ ( LU ( 1 >  j  * ) ISC 


WE  HAVE  DETERMINED  THAT  THE  SHORELINE  EXISTS  IN  THE  REGION  AND/OR 
THE  STUDY  AREA.  REMEMBER  THESE  TWO  CASES:  IRC=1  &  ISC=1  OR 
IRC*1  &  ISC=0.  NOW  YOU  CAN  ASK  QUESTIONS  ABOUT  THE  APPROPRIATE 
CASE. 


i  86  IF<  IRC.  EQ.  1.  AND.  ISC.  EQ.  1  )G0  TO  88 
i  WR I TE  ( LU  ( 2 ) »  87 ) 

# 

(p  rega-sr-shore-rule 
(goal  rega) 

(rega  shore) 

(s-r-coastal-shorel ine  t) 

( s-a-coastal-shorel ine  nil) 

(s-r-coastal-shorel ine-ext  unasked)  — > 

(call  display  rega-sr-shore-ext-ques ) 

(call  yes-no  s-r-coastal-shorel ine-ext ) 

(modify  2  ^2  sr-tidal-r iver ) 

(remove  5) 

) 

i 

(setq  rega-sr-shore-ext-ques 

'(t  t  5  "You  have  indicated  the  existence  of  a  coastal"  t 
5  "shore  line  in  the  study  region  but  not  in  the  study"  t 
5  "area.  Noiu  check  the  map  to  determine  if  some  coastal"  t 
5  "features  might  extend  into  the  study  area  from  the"  t 
5  "shore  line.  In  general<  these  features  Mill  have"  t 
5  "surface  elevations  <20'  unless  they  are  ridges  that"  t 
5  "parallel  the  coast."  t  t 

5  "  Do  you  believe  that  the  coastal  features  extend  into”  t 
5  "the  study  area?"  t  t)) 
i  READ ( LU ( 1 ) »  * ) IRCE 

»  GO  TO  90 

i 

i  88  WR I TE ( LU ( 2 ) *  89 ) 

9 

(p  rega-sa-shore-rule-2 
(goal  rega) 

(rega  shore) 

( s-r-coastal-shorel ine  t) 

( s-a-coastal-shorel ine  t) 

( s-a-coastal-shorel ine-ext  unasked)  — > 

(call  display  rega-sa-shore-ext-ques ) 

(call  yes-no  s-a-coastal-shorel ine-ext ) 

(modify  2  ^2  sr-tidal-r iver ) 

(remove  5) 

) 

» 

(setq  rega-sa-shore-ext-ques 

'(t  t  5  "You  have  indicated  the  existance  of  coastline  in"  t 
5  "the  study  region  and  the  study  area.  Now  check  the"  t 
5  "map  to  determine  if  the  coastal  features  exist  only"  t 


I  ■ 
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5  "at  the  shoreline  or  if  they  may  extend  inland.  In"  t 
5  "general,  these  features  will  have  surface  elevations"  t 
5  "<20'  unless  they  are  ridges  that  parallel  the  coast. "  t  t 
5  "  Do  you  believe  that  the  coastal  features  exist  beyond"  t 
5  "the  shoreline?"  t  t)) 

READ<LU<1).  *)ISCE 


TIDAL  RIVER  IN  REGION  OR  STUDY  AREA? 


(p  rega-tidal-r iver-rule 
(goal  rega) 

(rega  sr-tidal-r iver ) 

( s-r-tidal-r iver  unasked) — > 

(call  display  rega-tidal-river-q-1 ) 
(remove  3) 

(call  yes-no  s-r-tidal-river ) 


i  i  90  WRITE(LU(2).  95) 

(setq  rega-tidal-river-q-1 

'(t  t  5  "Does  a  tidal  river  occur  in  the  study  region?"  t  t)) 
i  i  READ(LU(1).  *)IRTR 


IF  NO  TIDAL  RIVER  IN  REGION,  THEN  BY  DEFINITION  NONE  IN  STUDY  AREA 


rega-sa-no-ti da 1-river-rule 
(goal  rega) 

(rega  sr-tidal-river ) 

(s-r-tidal-river  nil) 

(s-a-tidal-river  unasked).  — > 

(modify  2  *2  no-coast-no-tr-low) 

(modify  4  ~2  nil  rega-sa-no-tidal-r iver-rule ) 
) 

IF(  IRTR.  NE.  1  )G0  TO  110 


CHECK  FOR  ISLANDS  IN  TIDAL  RIVER 


rega- ti dal -river-islands-rule 
(goal  rega) 

(rega  sr-tidal-river) 

( s-r-tidal-r i ver  t) 

( s-r-ti dal -river-islands  unasked ) — > 
(call  display  rega-sr-tr-i s land-q) 
(remove  4) 

(call  yes-no  s-r-tidal-river-islands) 


ii  WRITE(LU(2),  94) 

(setq  rega-sr-tr-i s land-q 

'(t  t  5  "Does  the  map  indicate  one  or  more  islands"  t 
5  "in  the  tidal  river  outside  the  study  area?"  t  t)) 
ii  READ(LU( 1 ) ,  * ) IRTR I 
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CHECK  FOR  ROCK  IN  RIVER 


><p  rega-tidal-r iver-roc k— rule 
>  (goal  rega) 

»  (rega  sr-tidal-river ) 

i  ( s-r-tidal-r iver  t) 

;  ( s-r-tidal-r iver-roc k  unasked) — > 

;  (call  display  rega-sr-tr-roc k-q) 

»  (remove  4) 

i  (call  yes-no  s-r-tidal-river-rock ) 

;  ) 

i  i 

WR I TE  ( LU  ( 2 )  *  96 ) 

(setq  rega-sr-tr-roc k-q 

'<t  t  5  "Does  the  map  indicate  rocks  in  the  tidal"  t 
5  "river  outside  the  study  area?"  t  t)) 

ii  READ(LU( 1 ) >  *) IRTRR 


CHECK  FOR  MUD  FLATS  IN  RIVER 


(p  rega-tidal-river-mud-rule 
(goal  rega) 

(rega  sr-tidal-river) 

( s-r-tidal-river  t) 

( s-r-tidal-r iver-mud  unasked) — > 

(call  display  rega-sr-tr-mud-q) 

(remove  4) 

(call  yes-no  s-r-tidal-r iver-mud ) 

) 

f 

i  WR I TE ( LU ( 2 )  i  97 ) 

(setq  rega-sr-tr-mud-q 

'  < t  t  5  "Does  the  map  indicate  any  mud  flats  in  the"  t 
5  "tidal  river  outside  the  study  area?"  t  t>) 
ii  READ(LU( 1 ) <  *) IRTRM 


CHECK  FOR  SAND  BARS  IN  RIVERS 


(p  rega-tidal-river-sand-rule 
(goal  rega) 

(rega  sr-tidal-river) 
(s-r-tidal-river  t) 

( s-t — tidal-rivei — sand  unasked) — > 
(call  display  rega-si — tr-sand-q) 
(remove  4) 

(call  yes-no  s-r-tidal-river-sand ) 
) 


ii  WR I TE ( LU ( 2 ) *  98 ) 

(setq  rega-si — tr-sand-q 

'(t  t  5  "Does  the  map  indicate  any  sand  bars  in  the  tidal"  t 
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5  "river  outside  the  study  area?"  t  t>) 
i<  READ<LU(  1 )  *  ■*)  IRTRS 

i  i 

;(p  rega-sr-tr-to-sa-tr-rule-1 
»  (goal  rega) 

;  ( s-a-elevation  <  20) 

*  < s-r-tidal-r iver  t) 

i  (rega  sr-tidal-river )  — > 

i  (modify  4  A2  sa-tidal-river ) 

;  ) 

i  i 

>  (p  rega-sr-tr-to-sa-tr-rule-2 
i  (goal  rega) 

;  (s-a-elevation  <  20) 

;  ( s-r-tidal-r iver  nil) 

;  (rega  sr-tidal-river) 

;  ( s-a-tidal-river  unasked)  • — > 

*  (modify  4  A2  sa-tidal-river) 

;  (modify  5  ^2  nil  rega-sr-tr-to-sa-tr-rule-2) 

j  ) 

i  # 

;(p  rega-sr-tr-to-not-sa-tr-rule 
;  (goal  rega) 

i  (s-a-elevation  >=*  20) 

i  ( s-r-tidal-river  O  unasked) 

;  (rega  sr-tidal-river)  — > 

j  (modify  4  sa-kill) 

i  ) 

)  i 

i  (p  rega-sa-tr-kill-rule 

<  (goal  rega) 

i  (rega  sa-kill) 

»  ( s-a-tidal-r iver ) 

j  (  s-a-ti dal-r iver-i s lands ). 

i  ( s-a-tidal-r iver-roc k ) 

*  ( s-a-tidal-river-mud ) 
i  (s-a-tidal-river-sand )  — > 

(modify  2  ~2  low— qs) 

(modify  3  ^2  nil  rega-sa-tr-k i 1 1-rule ) 
(modify  4  ^2  nil  rega-sa-tr-k i 1 1-rule ) 
(modify  5  ~2  nil  rega-sa-tr-k i 1 1-rule ) 
(modify  6  ^2  nil  rega-sa-tr-k i 1 l-rul e ) 
(modify  7  ~2  nil  rega-sa-tr-kill-rule) 

) 


i  NO  TIDAL  RIVER  IN  STUDY  AREA  IF  MINS.  GE.  20' 

j  - 

# 

(p  rega-sa-tidal-r iver-rule 
(goal  rega) 

(rega  sa-ti dal-river ) 

( s-a-tidal-river  unasked)  — > 

(call  display  rega-s.a-tidal-river-q) 

(call  yes-no  s-a-tidal-river) 

(remove  3) 

) 


IF(MINS.  GE.  20)G0  TO  150 
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ii  WR I TE  <  LU ( 2 ) »  99  > 

(setq  rega-sa-tidal-river-q 

'(t  t  5  "Does  a  tidal  river  occur  in  the  study  area?”  t  t)) 
i;  READ  ( LU ( 1 ) *  * ) I STR 

i  i 

ii  IF< ISTR.  NE.  1 )G0  TO  106 


CHECK  FOR  ISLANDS  IN  THE  STUDY  AREA  PORTION  OF  THE  TIDAL  RIVER 


( p  rega-sa-ti dal-r iver- island -rule 
(goal  rega) 

(rega  sa-tidal-r iver ) 

( s-a-tidal-river  t) 

( s-a-tidal-r iver-islands  unasked)  — > 

(call  display  rega-sa-tidal-r ivei — islands-q) 

(call  yes-no  s-a-tidal-river-islands ) 

(remove  4) 

) 

i 

i  WR I TE ( LU ( 2  >  <  100) 

( setq  rega-sa-tidal-river-islands-q 

'(t  t  5  “Does  the  map  indicate  one  or  more  islands”  t 
5  "in  the  study  area  portion  of  the  tidal  river?”  t  t)) 
ii  READ(LU( 1 )*  *) I STR I 


CHECK  FOR  ROCK  IN  STUDY  AREA  PORTION  OF  RIVER 


(p  rega-sa-tidal-river-rock-rule 
(goal  rega) 

(rega  sa-tidal-r iver ) 

(s-a-tidal-river  t) 

( s-a-tidal-r iver-roc k  unasked)  — > 

(call  display  rega-sa-tidal-river-roc k-q> 

(call  yes-no  s-a-tidal-river-rock ) 

(remove  4) 

) 

i 

i  WRITE(LU(2),  101 ) 

(setq  rega-sa-tidal-river-rock-q 

'(t  t  5  "Does  the  map  indicate  rocks  in  the  study  area"  t 
5  "portion  of  tidal  river  channel?"  t  t)) 
ii  READ(LU( 1 ),  *> ISTRR 


CHECK  FOR  MUD  FLATS  IN  STUDY  AREA  PORTION  OF  RIVER 


(p  rega-sa-tidal-river-mud-rule 
(goal  rega) 

(rega  sa-tidal-river ) 

(s-a-tidal-river  t) 

( s-a-tidal-r iver-mud  unasked)  — > 

(call  display  rega-sa-tidal-river-mud-q) 
(call  yes-no  s-a-tidal-r iver-mud ) 

(remove  4) 
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) 

WR I TE ( LU ( 2 ) »  102) 

(setq  rega-sa-tidal-river-mud-q 

'(t  t  5  "Does  the  map  indicate  any  mud  flats  in  study"  t 
5  "area  portion  of  a  tidal  river?"  t  t)) 

READ  ( LU ( 1 ) »  * ) I STRM 


CHECK  FOR  SAND  BARS  IN  STUDY  AREA  PORTION  OF  RIVER 


(p  rega-sa-tidal-r iver-sand-rule 
(goal  rega) 

(rega  sa-tidal-r iver ) 

( s-a-tidal-river  t) 

< s-a-tidal-r i ver-sand  unasked)  — > 

(call  display  rega-sa-tidal-rivei — sand-q) 

(call  yes-no  s-a-tidal-river-sand ) 

(remove  4) 

) 

i 

i  WRITE(LU(2)» 103) 

(setq  rega-sa-tidal-river-sand-q 

'(t  t  5  "Does  the  map  indicate  any  sand  bars  in  study"  t 
5  "area  portion  of  a  tidal  river?"  t  t)) 

READ ( LU ( 1 )  i  * ) ISTRS 


QUESTIONS  RELATED  TO  TIDAL  RIVER  GO  HERE,  REMEMBER  TWO  CASES: 
(1)  IRTR-1  &  ISTR-1  AND  (2)  IRTR-1  &  ISTR-0 


( p  rega-sa-tidal-river-ext-rule-1 
(goal  rega) 

(rega  sa-tidal-r iver ) 

( s-r-tidal-r iver  t) 

(s-a-tidal-river  nil) 

(s-r-tidal-river-ext  unasked)  — > 

(call  display  rega-sr-tr-no-sa-tr-msg ) 

(call  yes-no  s-r-tidal-river-ext) 

(remove  5) 

) 

106  IF  ( IRTR.  I-Q.  1.  AND.  ISTR.  EQ.  1  )G0  TO  108 
WR I TE ( LU <  2 ) ,  107) 

(setq  rega-sr-tr-no-sa-tr-msg 

Mt  t  5  "You  have  indicated  that  a  tidal  river  exists  in"  t 
5  "the  study  region  but  not  in  the  study  area.  Now  check"  t 
5  "the  map  to  see  if  some  of  the  features  assoc  iated  with"  t 
5  "the  tidal  river  might  extend  into  the  study  area.  In"  t 
5  "general,  these  features  will  be  salt  marshes  adjacent"  t 
5  "to  rivers  and  have  elevations  only  slightly  higher”  t 
5  "than  the  river.  "  t  t 

5  ”  Do  you  believe  that  these  features  exist?"  t  t)) 
READ(LU( 1 ) ,  *) IRTRE 
GO  TO  150 

( p  rega-sa-tidal-river-ext-rule-2 


m 

ft 
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i 

(goal  rega) 

» 

(rega  sa-tidal-r iver ) 

» 

i 

( s-r-tidal-river  t) 

i 

( s-a-tidal-r iver  t) 

i 

( s-a-tidal-r iver-ext  unasked)  — > 

i 

(call  display  rega-sr-tr-sa-tr-msg) 

i 

(call  yes-no  s-a-tidal-river-ex* ) 

i 

i 

(remove  5) 

) 

>  i 

i  i 

108  WRITE(LU(2>,  109) 

(setq  rega-sr-tr-sa-tr-msg 

'(t  t  5  "You  have  indicated  that  a 

tidal 

river  e 

xists  in"  t 

5  "the  study  region  and  in  the  s 

tudy 

area 

Now  check  the"  t 

5  "map  to  see  if  the  features  as 

soc  ia 

ted 

with 

the  tidal"  t 

5  "river  in  the  study  area  exist 

only 

in 

the 

vicinity  of"  t 

5  "the  river  or  if  they  extend  autay  from 

the 

river.  In"  t 

5  "general<  these  features  will 

be  sa 

It  marsh 

areas"  t 

5  "extending  from  the  river  and 

have 

elevations  only"  t 

5  "slightly  higher  than  the  river  in 

the 

area 

.  "  t  t 

5  11  Do  you  believe  that  these 

features 

exis 

t?"  t  t)) 

i  i 

READ ( LU ( 1 ) »  * ) I STRE 

#  i 

GO  TO  150 

i  # 

;  (p 

rega-sa-tidal-r iver-done-rule 

i 

(goal  rega) 

i 

(rega  sa-tidal-river )  — > 

i 

(modify  2  A2  low-qs) 

WHEN  NEITHER  COAST  LINE  OR  TIDAL  RIVER  OCCURS  IN  A  REGION  WITH 
ELEVATION  <20 '  WE  MUST  LOOK  FOR  REASON. 


<p  no-coast-no-tr-low-rule 
(goal  rega) 

(rega  no-coast-no-tr-low) 
(s-r-low-coastal-shoreline  unasked)  — > 
(remove  3) 

(call  display  rega-no-c-no-tr-low-msg-1 ) 
(call  display  rega-no-c-no-tr-low-msg-2) 
(call  yes-no  s-r-low-coastal-shorel ine > 


no-coast-no-tr-low-done-rul e-1 
(goal  rega) 

(rega  no-coast-no-tr-low) 
(s-r-low-coastal-shoreline  t)  — > 
(modify  2  •''2  low-qs) 


110  WRITE(LU(2),  111 ) 
ftq  rega-no-c-no-tr-low-msg-1 

'(t  t  9  "You  have  indicated  that  the  study  region  has" 
9  "neither  a  coastline  or  a  tidal  river»  yet  the"  t 
9  "minimum  elevation  in  the  region  is  <20'.  We  must 
9  "determine  what  natural  feature  creates  this"  t 
9  "condition. "  t  t) ) 


REGA.  Li  35 


2— SEP -1983  10: 55 


Page  21 


COULD  REGIONAL  MINIMUM  BE  ASSOCIATED  WITH  A  COASTLINE  JUST 
OUTSIDE  THE  STUDY  REGION? 


a  WRITE(LU(2),  113) 

(setq  rega-no-c-no-tr-low-msg-2 

'<t  t  5  "Do  you  believe  that  the  regional  low  is"  t 

5  "associated  with  a  coastline  which  exists  just  beyond"  t 
5  "the  study  region?"  t  t)) 
a  READ<LU< 1 ) «  *) IRLC 

a  IF(IRLC.  EG.  1)G0  TO  127 


COULD  REGIONAL  MINIMUM  BE  ASSOCIATED  WITH  A  TIDAL  RIVER  JUST 
OUTSIDE  THE  STUDY  REGION? 


( p  no-coast-no-tr-low-tr-h ide-rul e 
(goal  rega) 

(rega  no-coast-no-tr-low) 
(s-r-low-coastal-shoreline  nil) 

( s-r-low-tidal-r iver-ext  unasked)  — > 
(remove  4) 

(call  display  rega-no-c-no-tr-low-msg-3) 
(call  yes-no  s-r-low-tidal-river-ext) 


( p  no-coast-no-tr-low-d one-rule-2 
(goal  rega) 

(rega  no-coast-no-tr-low) 
(s-r-low-tidal-river-ext  t)  — > 
(modify  2  ^2  low-qs) 


ii  WRITE(LU(2),  115) 

(setq  rega-no-c-no-tr-low-msg-3 

'(t  t  5  "Do  you  believe  that  the  regional  low  is"  t 

5  "associated  with  a  tidal  river  that  exists  just  beyond 
5  "the  study  region?"  t  t)) 
ii  READ(LU(1),  *)IRLTR 

ii  IF(  IRLTR.  EG.  1  )GQ  TO  127 


COULD  REGIONAL  MINIMUM  OCCUR  IN  ALLUVIAL  CHANNEL  <20 '? 


(p  no-coast-no-tr-Iow-ac-rule 
(goal  rega) 

(rega  no-coast-no-tr-low) 
(s-r-low-tidal-river-ext  nil) 

( s-r-low-al luvial-channel  unasked)  — > 
(remove  4) 

(call  display  rega-no-c-no-tr-low-msg-4) 
(call  yes-no  s-r-low-al luvial-channel ) 


( p  no-coast-no-tr-low-d one-rule-3 
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(goal  rega) 

(rega  no-coast-no-tr-low) 

( s-r-low-al luvial-channel  t)  — > 

(modify  2  ~2  low-qs) 

) 

# 

»  120  WRITE (LU( 2 ) « 121 ) 

(setq  rega-no-c-no-tr-loui-msg-4 

'(t  t  5  "Does  the  minimum  regional  elevation  occur”  t 

5  "in  a  dry  watercourse  or  active  alluvial  stream  or”  t 
5  "river  channel?"  t  t)) 
ii  READ(LU( 1 ) ,  •*) IRLAC 

i>  IF( IRLAC.  EQ.  1)G0  TO  127 


IF  NONE  OF  THE  ABOVE,  ASK  FOR  HELP. 


( p  no-c oast-no- tr- low-don e-rule-4 
(goal  rega) 

(rega  no-coast-no-tr-low) 

( s-r-low-al luvial-channel  nil)  — > 

(call  display  rega-no-c-no-tr— low-msg-5) 
(call  display  rega-no-c-no-tr-low-msg-6) 
(modify  2  ^2  low-qs) 


WRITE ( LU ( 2) ,  123) 
setq  rega-no-c-no-tr-low-msg-5 

'(t  t  5  "You  have  indicated  that  neither  coastline  nor"  t 
5  "tidal  river  landform  groups  exist  in  the  study  region"  t 
5  "and  you  do  not  believe  that  these  features  exist"  t 
5  "outside  the  region  in  a  manner  such  that  their"  t 
5  "associated  features  could  extend  into  the  study"  t 
5  "region  and  explain  the  regional  minimum  elevation.  "  t 
5  "Further  you  have  indicated  that  the  regional  minimum"  t 
5  "does  not  appear  to  be  related  to  an  alluvial  channel."  t  t 
5  "We  have  exhausted  the  available  alternatives,  thus  I"  t 
5  "suggest  you  consult  your  supervisor."  t  t)) 

WRITE(LU(2).  124) 
ietq  rega-no-c-no-tr-low-msg-6 

'(t  t  5  "You  will  be  allowed  to  continue"  t 
5  "Please  use  caution. "  t  t)) 

READ ( LU ( 1 ) ,  * ) I HELP 1 
IF(IHELP1.  EQ.  0)G0  TO  127 
WR I TE ( LU ( 2 ) ,  125) 
ietq  rega-f ools-help-msg 

'("  DEAD  IN  THE  WATER  (and  you  expected  help)"  t  t  t)) 

GO  TO  1000 


QUESTIONS  RELATED  TO  STUDY  AREA  MINIMUM  <20 '  WITH  OCCURRENCE  NOT 
ON  COASTLINE  OR  TIDAL  RIVER 


i  (p 

rega- 

low-qs -start-rule 

J 

(goal 

rega ) 

i 

(rega 

low-qs ) 

i 

( s-r- 

coastal-shorel ine  nil) 
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( s-r-tidal-r iver  nil) 

< s-a-elevation  <  20)  — > 

(call  display  rega-120-msg-l ) 

(make  loui-qs) 

) 

* 

(p  rega-low-qs-sk ip-to-mid-rule 
(goal  rega) 

(rega  low-qs)  — > 

(make  low-150-qs) 

i  ) 

i 

i  127  IF(MINS.  GE.  20) GO  TO  160 
i  WRITE(LU(2)< 129) 

(setq  rega-120-msg-l 

'(t  t  5  "It  has  been  indicated  that  the  study  region"  t 
5  "contains  neither  a  coastline  nor  a  tidal  river*  yet”  t 
5  "the  minimum  elevation  in  the  study  area  is  <20'.  We"  t 
5  "must  determine  which  natural  feature  causes  this"  t 
5  "condition.  "  t  t)) 

i  $ 

a  IF(IRLC.  EQ.  0)G0  TO  133 


COULD  THE  STUDY  AREA  MINIMUM  BE  ASSOCIATED  WITH  A  COASTLINE 
JUST  OUTSIDE  THE  STUDY  REGION  SUCH  THAT  FEATURES  OF  THE 
COASTLINE  EXTEND  INTO  THE  STUDY  AREA? 


rega- low-qs-sa-min-c oast-rule 
(goal  rega) 

(rega  low-qs) 

( low-qs ) 

( s-r-low-coastal-shorel ine  t) 

( s-a-low-coastal-shorel ine  unasked)  — > 
(call  display  rega-120-msg-2) 

(call  yes-no  s-a-low-coastal-shorel ine ) 
(remove  5) 


i  i  WRITE(LU(2).  131) 

(setq  rega-120-msg-2 

'(t  t  5  "You  have  said  you  believe  the  regional  low  is" 

5  “associated  with  a  coastline  beyond  the  study  region 
5  "boundary.  Do  you  think  that  the  study  area  low  is" 

5  "also  associated  with  this  coastline?"  t  t)) 

ii  READ(LU( 1 ),  *) ISLC 

i  i  GO  TO  135 


COULD  THE  STUDY  AREA  MINIMUM  BE  ASSOCIATED  WITH  A  TIDAL  RIVER 
JUST  OUTSIDE  THE  STUDY  REGION  SUCH  THAT  FEATURES  OF  THE 
TIDAL  RIVER  EXTEND  INTO  THE  STUDY  AREA? 


j  (p  rega-low-qs-sa-min-tidal-r iver-rul e 
i  (goal  rega) 

;  (rega  low-qs) 

;  (low-qs) 
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( s-r-low-coastal-shoreline  nil) 

< s-a-low-tidal-r iver  unasked)  — > 
(call  display  rega-120-msg-3) 
(call  yes-no  s-a-low-tidal-r iver ) 
(remove  5) 


ii  133  IFdRLTR.  EG.  0)G0  TO  150 
>i  WRITE(LU(2>,  134) 

(setq  rega-120-msg-3 

'(t  t  5  "You  believe  the  regional  low  is  associated  with" 
5  "a  tidal  river  beyond  the  study  region  boundary. "  t 
5  "Do  you  believe  that  the  study  area  low  is  also"  t 
5  "associated  with  the  tidal  river?"  t  t)) 
a  READ(LU(1 ),  *>ISLTR 

ii  135  IF(IRLC.  NE.  0.  OR.  IRLTR.  NE.  0>G0  TO  150 


COULD  STUDY  AREA  MINIMUM  OCCUR  IN  AN  ALLUVIAL  CHANNEL? 


rega-low-qs-sa-min-al lu vi el -channel-rule 
(goal  rega) 

(rega  low-qs) 

( low-qs ) 

(s-r-low-coastal-shoreline  O  t) 

( s-r-1 ow-t i da  1 -r i ver  O  t) 

( s-a-low-al luviel-channel  unasked)  — > 
(call  display  rega-120-msg-4> 

(call  yes-no  s-a-low-al luviel-channel ) 
(remove  6) 


ii  WRITE(LU(2),  137) 

(setq  rega-120-msg-4 

'(t  t  5  "Does  the  minimum  study  area  elevation  occur"  t 
5  "in  a  dry  watercourse  or  active  alluvial  stream  or 
5  "river  channel?"  t  t)) 
ii  READ ( LU ( 1 ) «  * )  I SLAC 


IF  MAXS.  LT.  20,  THEN  ALL  OF  STUDY  AREA  BELOW  20 


(p  rega-low-qs-done-rule 
(goal  rega) 

(rega  low-qs) 

(low-qs)  — > 

(modify  3  A1  low-150-qs) 


150  IF(MAXS.  ©E.  20)00  TO  160 


QUESTIONS  RELATED  TO  STUDY  AREA  MAXIMUM  <20 


(p  rega-low-qs-sa-max-coast-rule 
(goal  rega) 
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(rega  loui-qs) 

( low-150-qs  > 

<  s-a-elevation  <>.  <  20) 

<s-a-max-coastal-shoreline  unasked)  — > 
(call  display  rega-1 120-msg-l ) 

(call  yes-no  s-a-max-coastal-shorel ine ) 
(remove  5) 


ii  WR I TE ( LU ( 2 ) # 151) 

(setq  rega-1 120-msg-l 

'(t  t  5  "Me  now  want  to  associate  the  maximum  elevation"  t 
5  "in  the  study  area  with  either  coastal  features  or"  t 
5  "features  associated  with  tidal  rivers. ”  t  t 


5  "Is  the  maximum  elevation  in  the  study  area" 
5  "associated  with  coastal  features?"  t  t)) 
READ ( LU ( 1 ) >  * ) I SMC 
IF ( ISMC.  EG.  1  )G0  TO  160 


( p  rega-1 ow-qs-sa-max-t idal-r iver-rul e 
(goal  rega) 

(rega  low-qs) 

( low-150-qs ) 

(s-a-elevation  <>.  <  20) 
(s-a-max-coastal-shoreline  nil) 

( s-a-max-tidal-r iver  unasked)  — > 
(call  display  rega-1120-msg-2) 
(call  yes-no  s-a-max-tidal-river ) 
(remove  6) 


ii  MRITE(LU(2),  153) 

(setq  rega-1120-msg-2 

'(t  t  5  "Is  the  maximum  elevation  in  the  study"  t 

5  "area  associated  with  tidal  rivers  such  as  a  marsh" 
5  "or  levee?"  t  t>) 
ii  READ ( LU ( 1 ) »  * ) I SMTR 

ii  IFdSMTR.  EQ.  1)00  TO  160 


rega-low-qs-sa-max-un-assoc iated-rule 
(goal  rega) 

(rega  low-qs) 

( low-1 50-qs) 

(s-a-elevation  <>.  <  20) 

( s-a-max-tidal-r iver  nil) 

( s-a-max-un-assoc iated  unasked)  — > 
(call  display  rega-1 120-msg-3) 

(call  yes-no  s-a-max-un-assoc iated ) 
(remove  6) 


ii  WRITE(LU(2),  155) 

(setq  rega-1 120-msg-3 

Mt  t  5  "Is  it  difficult  to  associate  the  study  area"  t 
5  "maximum  with  any  particular  terrain  feature?"  t  t)) 
ii  READ(LU( 1 ) »  *) ISMZ 


(p  rega-low-150-qs-done-rule 


n..«> . 


Cm  <** 


-v 
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(goal  rega) 

(rega  low-qs) 

( low-1 50-qs )  — > 

(modify  3  ~1  mid-qs) 
) 


IF  MAXR.LT.  20,  THEN  ALL  REGION  BELOW  20' 


(p  rega-lou»-qs-mid-done-rule 
(goal  rega) 

(rega  lou»-qs) 

(mid-qs)  — > 

(modify  2  ^2  sr-loui) 
(remove  3) 

) 

i 

i  160  IF (MAXR.  GE.  20)G0  TO  200 


QUESTIONS  RELATED  TO  STUDY  REGION  MAXIMUM  <20 ' 


CONTINUE 


ALL  LANDFORMS  <20 GO  TO  REGIONAL  DRAINAGE  SECTION 


GO  TO  500 


***************************************************************** 
LOW  TERRACE  IN  STUDY  REGION  OR  STUDY  AREA? 


***************************************************************** 


200  IF (MINR.  LT.  100.  AND.  MAXR.  GT.  20) GO  TO  205 
GO  TO  300 


<P 


rega-sr-terrace-start-rul e 
(goal  rega) 

(rega  sr-loui)  — > 

(modify  2  ^2  terraces) 
(make  terraces  sr-lou») 


) 


i  ***************************************************************** 

i  QUESTIONS  RELATED  TO  LOW  TERRACES  IN  STUDY  REGION 


««***»*******»*#***#*#»##*###**»******#**#*#*«»****#***##*#*«***» 


(p  r ega-sr-low-t err a c e-don t -ask -rule 
(goal  rega) 

(rega  terraces) 

(terraces  sr-low) 

(  s-r-loui-terraces  unasked)  — > 
(modify  3  ^2  sr-mid) 
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;(p  rega-sr-low-terrace-rule 

>  (goal  rega) 

i  (rega  terraces) 

>  (terraces  sr-low) 

;  ( s-r-elevation  <  100  >  20) 

i  ( s-r-low-terraces  unasked)  — > 
i  (call  display  rega-sr-ltr-msg-1) 

i  (call  display  rega-sr-ltr-msg-2) 

i  (call  pause) 

>  (call  display  rega-sr-ltr-msg-3 > 

i  (call  display  rega-sr-ltr-msg-4 ) 

i  (call  yes-no  s-r-lou-terraces) 

»  (remove  5) 

i  ) 
l  i 

ii  205  WRITE(LU(2),  206) 

(setq  rega-sr-ltr-msg-1 

'(t  t  5  "Now  check  your  map  sheet  of  the  study  region"  t 

5  "and  study  area  for  elevated  land  between  elevations  of"  t 
5  "approximately  20'  and  100'  which  have  wide  contour"  t 
5  "spacings  indicative  of  generally  level  surfaces. "  t  t)) 

i  i 

a  208  WRITE(LU(2)» 210) 

(setq  rega-sr-ltr-msg-2 

'(t  t  5  "Please  check  your  map  sheet  in  detail!"  t  t)) 
i ;  PAUSE  5 

i  > 

a  WRITE(LU(2),  215) 

(setq  rega-sr-ltr-msg-3 

'(t  t  "  You  will  now  be  asked  a  few  questions  concerning"  t 
"  the  land  areas  between  elevations  of"  t 

"  approx imately  20'  and  100'  in  the  study  region  and  study”  t 
"  area.  "  t  t) ) 

;  i  WR I TE ( LU ( 2 ) »  220 ) 

(setq  rega-sr-ltr-msg-4 

'(t  t  5  "Are  there  elevated  and  generally  level  land  surfaces"  t 
5  "with  elevations  between  20'  and  100'  in  the"  t 
5  "study  region?"  t  t)) 

ii  READ(LU( 1 ) »  *) IRT10 

i  i 

i(p  rega-sr-no-low-terrace-rule 
i  (goal  rega) 

i  (rega  terraces) 

i  (terraces  sr-low) 

.•  ( s-r-low-terrac es  nil)  — > 

i  (modify  3  A2  sa-iow) 

i  ) 

#  i 

ii  IF( IRT10. NE. 1 )G0  TO  250 

i  i 

i (p  rega-sr-low-terrace-coast-rule 
i  (goal  rega) 

i  (rega  terraces) 

i  (terraces  sr-low) 

i  ( s-r-low-terrac es  t) 
i  ( s-r-coastal-shorel ine  t) 

i  (5-r-low-terraces-near-coast  unasked)  — > 
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(call  display  rega-sr-ltr-msg-5) 

(call  yes-no  s-r-lou>-terraces-near-coast) 

(remove  6) 

) 

i 

;  IF ( IRC.  NE.  1 )G0  TO  230 

;  WRITE(LU(2), 225) 

(setq  rega-sr-ltr-msg-5 

'(t  t  5  "Are  these  surfaces  in  the  vicinity  of  the"  t 
5  “coastline?"  t  t)) 
i  READ(LU( 1 ) »  *) IRT1C 

» 

(p  rega-sr-loui-terrace-tidal-river-rule 
(goal  rega) 

(rega  terraces) 

(terraces  sr-low) 

( s-r-loui-terraces  t) 

( s-r-tidal-river  t) 

( s-r-loui-terraces-near-tidal-river  unasked)  — > 

(call  display  rega-sr-1 tr-msg-6) 

(call  yes-no  s-r-loui-terraces-near-tidal-river ) 

(remove  6) 

) 

j 

i  230  IF(IRTR. NE.  1)60  TO  250 
j  WRITE(LU(2),231) 

(setq  rega-sr-ltr-msg-6 

'(t  t  5  "Are  these  surfaces  in  the  vicinity  of  the"  t 
5  "tidal  river?"  t  t)) 

;  READ(LU( 1 ) *  *) IRT1TR 

i 

( p  rega-sr-loui-terrace-to-sa-rule 
(goal  rega) 

(rega  terraces) 

(terraces  sr-loui)  — > 

(modify  3  A2  sa-loui) 

) 

i 

i  ***************************************************************** 

j  QUESTIONS  RELATED  TO  LOW  TERRACES  IN  THE  STUDY  AREA 

i  ***************************************************************** 

} 

(p  rega-sa-loui-terrace-rule 
(goal  rega) 

(rega  terraces) 

(terraces  sa-low) 

( s-a-elevation  <  100  >  20) 

( s-r-loui-terraces  t) 

(s-a-loui-terraces  unasked)  — > 

(call  display  rega-sa-1 tr-msg-1 ) 

(call  yes-no  s-a-low-terraces) 

(remove  6) 

) 

i 

( p  rega-sa-1 ou-terrace-no-sr-rul e 
(goal  rega) 

(rega  terraces) 

(terraces  sa-low) 

(s-r-low-terraces  nil) 
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( s-a-lou-terraces  unasked)  — > 

(modify  5  A2  nil  rega-sa-lou-terrace-no-sr-rule ) 

) 

i 

;  250  IF(MINS.  LT.  100.  AND.  MAXS.  GT.  20)G0  TO  252 

i  GO  TO  300 

i 

;  252  WRITE(LU(2),  253) 

(setq  rega-sa-ltr-msg-1 

'(t  t  5  "Do  these  surfaces  exist  in  the  study  area?"  t  t)) 
;  READ  (LU(1)»*)IST10 

9 

( p  rega-sa-lou-terrace-coast-rule 
(goal  rega) 

(rega  terraces) 

(terraces  sa-lou) 

( s-a-coastal-shorel ine  t) 

(s-a-lou-terraces  t) 

( s-a-loui-terraces-near-coast  unasked)  — > 

(call  display  rega-sa-ltr-msg-2) 

(call  yes-no  s-a-loui-terraces-near-coast) 

(remove  6) 

) 

9 

i  IF(  ISC.  NE.  1  )G0  TO  260 

i  WRITE(LU(2),  255) 

(setq  rega-sa-ltr-msg-2 

'(t  t  5  "Are  these  surfaces  in  the  study  area  located"  t 
5  "in  the  vicinity  of  the  coastline?"  t  t>) 

-  READ(LU( 1 ) j  *) 1ST 1C 

# 

( p  rega-sa-loui-terrace-tidal-river-rule 
(goal  rega) 

(rega  terraces) 

(terraces  sa-loui) 

( s-a-tidal-r i ver  t) 

( s-a-lou-terraces  t) 

( s-a-lou-terraces-near-tidal-r iver  unasked)  — > 

(call  display  rega-sa-ltr-msg-3) 

(call  yes-no  s-a-lou-terraces-near-tidal-river ) 

(remove  6) 

) 

9 

i  260  IF(ISTR.  NE.  1)G0  TO  300 
i  WRITE(LU(2>.  265) 

(setq  rega-sa-ltr-msg-3 

'(t  t  5  "Are  these  surfaces  in  the  study  area  located"  t 
5  "in  the  vicinity  of  a  tidal  river?"  t  t)) 

READ ( LU ( 1 ) <  * ) I ST 1 TR 

rega-sa-lou-terrac  e-done-rul e 
(goal  rega) 

(rega  terraces) 

(terraces  sa-lou)  — > 

(modify  3  ~2  sr-mid) 

) 

LAST  STATEMENT 

IF(MAXR.  LT.  100 ) GO  TO  500 


IV.  9 

9 
9 

9  9 
;  $ 
9  9 
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*************************************************************»*** 

MID  LEVEL  TERRACES  IN  REGION  AND  STUDY  AREA 

***************************************************************** 

300  IF ( MINR.  LT.  170.  AND.  MAXR.  GT.  1001G0  TO  305 
GO  TO  400 


QUESTIONS  RELATED  TO  MID  LEVEL  TERRACES  IN  THE  STUDY  REGION 


( p  rega-sr-mid-terrace-dont-ask-rule 
(goal  rega) 

(rega  terraces) 

(terraces  sr-mid) 

(s-r-mid-terraces  unasked)  — > 

(modify  3  A2  sr-high) 

) 

i 

(p  rega-sr-mid-terrace-rule 
(goal  rega) 

(rega  terraces) 

(terraces  sr-mid) 

( s-r-elevation  <  170  >  100) 

( s-r-mid-terraces  unasked)  — > 

(call  display  rega-sr-mtr-msg-1 ) 

(call  display  rega-sr-mtr-msg-2) 

(call  pause) 

(call  display  rega-sr-mtr-msg-3) 

(call  display  rega-sr-mtr-msg-4 ) 

(call  yes-no  s-r-mid-terraces) 

(remove  5) 

) 

i 

;  305  WRITE(LU(2),  306) 

(setq  rega-sr-mtr-msg-1 

'(t  t  5  "Now  check  your  map  sheet  of  the  study  region  and"  t 
5  "study  area  for  elevated  land  surfaces  between"  t 
5  "elevations  of  approximately  100'  and  170'  which  have"  t 
5  "wide  contour  spacings  indicative  of  generally  level"  t 
5  "surfaces.  Transition  slopes  from  these  surfaces  to"  t 
5  "lower  levels  will  be  steep  and  uniform.  "  t  t)) 
ii  308  WRITE(LU(2). 310) 

(setq  rega-sr-mtr-msg-2 

'(t  t  5  "Please  check  the  map  sheet  in  detail!"  t  t)) 

;  PAUSE  6 

i  WRITE(LU(2). 315) 

(setq  rega-sr-mti — msg-3 

'(t  t  5  "You  will  now  be  asked  a  few  questions  about  the"  t 
5  "elevated  land  areas  between  elevations  of  approx imately “  t 
5  "100'  and  170'  in  the  study  region  and  study  area. "  t  t)) 
ii  WRITE (LU(2). 320) 

(setq  rega-sr-mtr-msg-4 

Mt  t  5  "Are  there  elevated  and  generally  level  land  surfaces"  t 
5  "with  elevations  between  100'  and  170'  in  the"  t 
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5  "study  region?"  t  t)) 
READ(LU( 1 )< *) IRT20 

rega-sr-mid-terrace-to-sa-rule 
(goal  rega) 

(rega  terraces) 

(terraces  sr-mid)  — > 

(modify  3  A2  sa-mid) 


IF(  IRT20.  NE.  1)C0  TO  350 

ADD  ADDITIONAL  STATEMENTS  ON  MID  LEVEL  TERRACES  IN  STUDY  REGION 
CONTINUE 


QUESTIONS  RELATED  TO  MID  LEVEL  TERRACES  IN  THE  STUDY  AREA 


rega-sa-mid-terrace-rule 
(goal  rega) 

(rega  terraces) 

(terraces  sa-mid) 

( s-a-elevati on  <  170  >  100) 

( s-r-mid-terraces  t) 

( s-a-mid-terraces  unasked)  — > 
(call  display  rega-sa-mtr-msg-1 ) 
(call  yes-no  s-a-mid-terraces ) 
(remove  6) 


rega-sa-mid-terrace-no-sr-rule 
(goal  rega) 

(rega  terraces) 

(terraces  sa-mid) 

(s-r-mid-terraces  nil) 

( s-a-mid-terraces  unasked)  — > 

(modify  5  ~2  nil  rega-sa-mid-terrace-no-sr-rule) 


350  IF(MINS.  LT.  170.  AND.  MAXS.  GT.  100)G0  TO  355 
GO  TO  400 

355  WRITE(LU(2),  356) 

»tq  rega-sa-mtr-msg-1 

'(t  t  5  "Are  there  elevated  and  generally  level  land  surfaces" 
5  "with  elevations  between  100'  and  170'  in  the”  t 
5  "study  area?"  t  t)) 

READ ( LU ( 1 )  i  * ) I ST20 
IF(IST20.  NE.  1)00  TO  400 

ADD  ADDITIONAL  STATEMENTS  ON  MID  LEVEL  TERRACES  IN  STUDY  AREA 
CONTINUE 

»  rega-sa-mid-terrace-done-rule 
(goal  rega) 

(rega  terraces) 

(terraces  sa-mid)  — > 

(modify  3  ^2  sr-high) 


I  # 
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i j  HIGH  LEVEL  TERRACES  IN  THE  STUDY  REGION  AND  STUDY  AREA 

j  j  ***************************************************************** 

i  i 

i»  400  IF(MINR.  LT.  270.  AND.  MAXR.  GT.  170)G0  TO  409 

i i  GO  TO  500 

i  i 

»  <p  rega-sr-high-terrace-dont-ask-rule 
i  (goal  rega) 

<  (rega  terraces) 

i  (terraces  sr-high) 

•  (s-r-high-terraces  unasked)  — > 

i  (modify  2  ~2  drainage) 

;  (remove  3) 

;  ) 

f  > 

>  (p  rega-sr-high-terrace-rule 

i  (goal  rega) 

<  (rega  terraces) 

;  (terraces  sr-high) 

;  ( s-r-elevation  <  270  >  170) 

i  (s-r-high-terraces  unasked)  — > 

i  (call  display  rega-sr-htr-msg-1 ) 

>  (call  display  rega-sr-htr-msg-2) 

i  (call  pause) 

i  (call  display  rega-sr-htr-msg-3) 

;  (call  display  rega-sr-htr-msg-4) 

*  (call  yes-no  s-r-high-terraces) 

;  (remove  9) 

)  ) 

i  i 

a  409  WRITE < LU ( 2 ) » 406 ) 

(setq  rega-sr-htr-msg-1 

'(t  t  9  "Now  check  your  map  sheet  of  the  study  region"  t 
9  "and  study  area  for  elevated  land  areas  between"  t 
5  "elevations  of  approx imately  170'  and  270'.  We  are"  t 
5  “interested  in  level  areas  or  erroded  remnants  of  once"  t 
9  "level  surfaces.  The  slopes  from  these  surfaces  will"  t 
5  "be  steep  and  uniform."  t  t)> 
a  408  WR I TE ( LU ( 2 ) «  409 ) 

(setq  rega-sr-htr-msg-2 

'(t  t  5  "Please  check  the  map  sheet  in  detail!"  t  t)) 

i i  PAUSE  7 


QUESTIONS  RELATED  TO  HIGH  LEVEL  TERRACES  IN  THE  STUDY  REGION 


ii  WRITE(LU(2). 419) 

(setq  rega-sr-htr-msg-3 

'(t  t  9  "You  will  now  be  asked  a  few  questions  about  the"  t 
9  "elevated  land  areas  between  elevations  of  approx imately "  t 
9  "170'  and  270'  in  the  study  region  and  study  area. "  t  t>) 

i  i 

;;  WR I TE ( LU ( 2 ) »  420 ) 

(setq  rega-sr-htr-msg-4 

'(t  t  9  "Did  you  find  elevated  land  surfaces  or"  t 

9  "erroded  remnants  of  once  level  surfaces  in  the  study"  t 
9  "region  between  the  elevations  of  approx imately  170'"  t 
9  "and  270'?"  t  t)> 
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a  READ ( LU ( 1 )  >  * )  I RT30 

n  IF<IRT30.  NE.  1)00  TO  450 

i  i  ADD  ADDITIONAL  STATEMENTS  FOR  HIGH  LEVEL  TERRACES  IN  STUDY  REGION 

i i  CONTINUE 

j  i 

>  <p  rega-sr-high-terrace-to-sa—rule 

•  (goal  rega) 

j  (rega  terraces) 

»  (terraces  sr-high)  — > 
t  (modify  3  ~2  sa-high) 

i  ) 

•  i 

t  i  - 

i  i  QUESTIONS  RELATED  TO  HIGH  LEVEL  TERRACES  IN  THE  STUDY  AREA 

i  i  - 

i  i 

i  (p  rega-sa-high-terrace-rule 
;  (goal  rega) 

i  (rega  terraces) 

i  (terraces  sa-high) 

i  (s-a-elevation  <  270  >  170) 

j  (s-r-high-terraces  t) 

j  (s-a-high-terraces  unasked)  — > 

>  (call  display  rega-sa-htr-msg-1 ) 

•  (call  yes-no  s-a-h igh-terraces ) 

i  (remove  6) 

i  ) 

;  < 

i  (p  rega-sa-high-terrace-no-sr-rule 
i  (goal  rega) 

i  (rega  terraces) 

•  (terraces  sa-high) 

i  (s-r-high-terraces  nil) 

i  (s-a-high-terraces  unasked)  — > 

i  (modify  5  *2  nil  rega-sa-high-terrace-no-sr-rule) 

i  ) 

9  9 

i  i  450  IF  (MINS.  LT.  270.  AND.  MAXS.  GT.  170)G0  TO  455 

i i  GO  TO  500 

a  455  WRITE(LU(2), 460) 

(setq.  rega-sa-htr-msg-1 

'(t  t  5  "Are  there  elevated  level  areas  or  erroded  remnants  of"  t 
5  "once  level  surfaces  in  the  study  area  between"  t 
5  "the  elevations  of  approx imately  170'  and  270'?"  t  t)) 
a  READ(LU( 1 > .  *) IST30 

a  IF(IST30.  NE.  1)00  TO  500 

i  j  ADD  ADDITIONAL  STATEMENTS  OF  HIGH  LEVEL  TERRACES  IN  STUDY  AREA 
i *  CONTINUE 

i  i 

i  (p  rega-sa-high-terrace-done-rule 

>  (goal  rega) 

i  (rega  terraces) 

>  (terraces  sa-high)  — > 

>  (modify  2  ~2  drainage) 

>  (remove  3) 

i  ) 

i  i 

t i  •**»****«*«**««*«****«****»*«#****«**«****«##««***««******««#«**# 

i  i  DRAINAGE  IN  STUDY  REGION  AND  STUDY  AREA 
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i  i  ***************************************************************** 

I  » 

i  (p  rega-drainage-start-rule 
i  (goal  rega) 

;  (rega  drainage) 

i  (s-r-rivers  unasked)  — > 
i  (call  display  rega-sr-drg-msg-1 ) 

;  (call  pause) 

<  (call  display  rega-sr-drg-msg-2) 

i  (call  yes-no  s-r-rivers) 

i  (remove  3) 

i  (make  drainage  sr-rivers) 

;  ) 

i  i 

ii  900  URITE(LU(2).  909) 

(setq  rega-sr-drg-msg-1 

'(t  t  9  "Now  we  are  interested  in  the  fresh  water  rivers"  t 
9  "and  streams  in  the  study  region  and  study  area.  "  t 
9  "Here  we  arbitrarily  define  a  'river'  as  a  watercourse”  t 
9  "which  is  indicated  by  a  double  line  symbol  on  a"  t 
9  Hl:90>000  scale  topographic  map  and  a  'stream'  will  be"  t 
9  "indicated  by  a  single  line  symbol.  This  will  avoid  the"  t 
9  "ambiguities  associated  with  local  names.  Now  scan  the"  t 
9  "map  sheet  to  determine  the  general  locations  of  the"  t 
9  "rivers  and  streams.  "  t  t 
9  "Please  check  the  map!"  t  t)) 

:  i  PAUSE  10 

i  i 

f i  ***************************************************************** 

j I  DRAINAGE  CHANNELS  IN  THE  STUDY  REGION 

i  ***************************************************************** 

i  i 

a  URITE(LU(2).  910) 

(setq  rega-sr-drg-msg-2 

'(t  t  9  "You  will  now  be  asked  questions  about  the"  t 
9  "rivers  and  streams  in  the  study  region. "  t  t 
9  "Are  there  one  or  more  rivers  in  the  study  region?"  t  t>) 

i  i 

i (p  rega-sr-drain-rule-2 
i  (goal  rega) 

i  (rega  drainage) 

»  (drainage  sr-rivers) 
i  (s-r-rivers  nil)  — > 

i  (modify  3  ^2  sr-streams) 

;  ) 

i  i 

a  READ ( LU  < 1 ) »  * ) I R AC 

ii  IF( IRAC.  NE.  1 )G0  TO  990 

i  i 

i  (p  rega-sr-drain-riv-rule 
i  (goal  rega) 

i  (rega  drainage) 

»  (drainage  sr-rivers) 
i  (s-r-rivers  t) 

j  ( s-r-meander ing-rivers  unasked)  — > 

>  (call  display  rega-sr-drg-msg-3) 

#  (call  yes-no  s-r-meander ing-r i vers ) 

i  (remove  9) 

{  ) 
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i  i 

ii  WRITE(LU(2), 515) 

(setq  rega-sr-drg-msg-3 

'<t  t  5  "Does  any  river  have  meanders?"  t  t)) 

i  < 

*  <p  rega-sr-riv-l-meander-rule 

i  (goal  rega) 

j  (rega  drainage) 

i  (drainage  sr-rivers) 
i  ( s-r-meander ing-rivers  t) 

j  (s-r-elevation  <  101  ) 

j  ( s-r-low-meander ing-rivers  unasked)  — > 

i  (call  display  rega-sr-drg-msg-4) 

*  (call  yes-no  s-r-lou»-meander  ing-rivers ) 

;  (remove  6) 

i  ) 

*  i 

i  (p  rega-sr-riv-h-meander-rul e 
i  (goal  rega) 

*  (rega  drainage) 

i  (drainage  sr-rivers) 
i  ( s-r-meander ing-rivers  t) 

i  (s-r-elevation  >100  ) 

;  ( s-r-h igh-meander ing-r ivers  unasked)  — > 

i  (call  display  rega-sr-drg-msg-5) 

i  (call  yes-no  s-r-high— meandering-rivers ) 

i  (remove  6) 

i  ) 

i  i 

ii  READ(LU( 1 ) *  *) IRACM 

ii  IF(  IRACM.  NE.  l)CO  TO  530 

i  i 

ii  IF(MINR.  ©T.  100)00  TO  524 

ii  WRITE(LU(2).  520) 

(setq  rega-sr-drg-msg-4 

'(t  t  5  "Does  any  river  have  meanders  below  the" 
5  "elevation  of  100 '?"  t  t)) 
ii  READ(LU( 1 ) »  *) IRACML 

i  i 

ii  IFtMAXR.  LT.  100)00  TO  530 

ii  524  URITE(LU(2)> 525) 

(setq  rega-sr-drg-msg-5 

Mt  t  5  "Does  any  river  have  meanders  above  the 
5  "elevation  of  100'?"  t  t>) 
ii  READ ( LU ( 1 ) i * ) I R ACMH 

i  # 

i(p  rega-sr-riv-meander-rule 
i  (goal  rega) 

i  (rega  drainage) 

i  (drainage  sr-rivers) 
i  ( s-r-rap id/fal 1-rivers  unasked) 
i  ( s-r-def lected-r ivers  unasked)  — > 

i  (call  display  rega-sr-drg-msg-6 ) 

i  (call  yes-no  s-r-rapid/fall-rivers) 

i  (call  display  rega-sr-drg-msg-7 ) 

i  (call  yes-no  s-r-def lec ted-r ivers ) 

i  (remove  4  5) 

i  ) 

i  i 
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ii  530  WRITE(LU(2>,  535) 

(setq  rega-sr-drg-msg-6 

'(t  t  5  "Does  the  map  indicate  the  existence  of"  t, 

5  "falls  or  rapids  in  any  study  region  rivers?"  t  t)> 
n  READ(LU( 1 )»  *) 1RARF 

i  i 

n  WRITE(LU(2),  540) 

(setq  rega-sr-drg-msg-7 

'(t  t  5  "Does  any  study  region  river  have”  t 

5  "a  sharp  alignment  change  as  though  the  mater  is  being"  t 
5  "deflected  by  a  resistant  material?"  t  t)> 

ii  READ ( LU  < 1 ) »  * ) IRACD 

n  IF  ( IRACD.  NE.  1)00  TO  550 

9  9 

ii  IF ( MAXR.  LT.  100)00  TO  550 

ii  WRITE(LU(2)<  545) 

i  i 

i(p  rega-sr-riv-sac-rule 
i  (goal  rega) 

i  (rega  drainage) 

i  (drainage  sr-rivers) 
i  ( s-r-elevation  >  100) 

»  (s-r-def lected-rivers  t) 

i  ( s-r-h igh-def lected-rivers  unasked)  — > 

i  (call  display  rega-sr-drg-msg-8) 

i  (call  yes-no  s-r-h igh-def lected-rivers ) 

i  (remove  6) 

i  ) 


i  i 

(setq  rega-sr-drg-msg-8 

' (t  t  5  "Does  the  sharp  alignment  change"  t 
5  "occur  above  the  elevation  of  100'?"  t  t)) 

i  i 

i(p  rega-sr-riv-to-str-rule 
i  (goal  rega) 

i  (rega  drainage) 

i  (drainage  sr-rivers)  — > 

i  (modify  3  A2  sr-streams) 

i  ) 

i  i 

ii  READ(LU( 1 ) <  *) IRACDH 

9  9 

i  (p  rega-sr-str-rule 
i  (goal  rega) 

>  (rega  drainage) 

i  (drainage  sr-streams) 

i  (s-r-streams  unasked)  — > 

»  (call  display  rega-sr-drg-msg-9) 

i  (call  yes-no  s-r-streams) 

i  (remove  4) 

i  ) 

i  i 

ii  590  WRITE(LU(2>, 555) 

(setq  rega-sr-drg-msg-9 

Mt  t  5  "Are  there  any  streams  in  the"  t 
5  "study  region?"  t  t)) 


(p  rega-sr-no-str-rul e 
(goal  rega) 
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i  (rega  drainage) 

>  (drainage  sr-streams) 

>  (s-r-streams  nil)  — > 

j  (modify  3  ^2  sa-rivers) 

j  ) 

i  i 

i  i  READ(LU( 1  )>  *) IRS 

j}  IF  ( IRS.  NE.  1)00  TO  600 

i  i 

j  (p  rega-sr-str-meander-rule 
;  (goal  rega) 

i  (rega  drainage) 

»  (drainage  sr-streams) 

i  (s-r-streams  t) 

i  ( s-r-meander ing-streams  unasked)  — > 

»  (call  display  rega-sr-drg-msg-10) 

t  (call  yes-no  s-r-meander ing-streams ) 

i  (remove  5) 

;  ) 

i  i 

ii  WRITE(LU<2>,  560) 

(setq  rega-sr-drg-msg-10 

'(t  t  5  "Are  there  any  meanders  along  any  of"  t 
5  "the  streams  in  the  study  region?"  t  t)) 
ii  REA0(LU(1),  *)1RSM 

ii  IF(IRSM.  NE.  1)00  TO  570 

i  i 

i  (p  rega-sr-str-h-meander-rule 
i  (goal  rega) 

i  (rega  drainage) 

i  (drainage  sr-streams) 

i  (s-r-meandering-streams  t) 
i  ( s-r-elevation  O.  >  99) 

i  (s-r-high-meandering-streams  unasked)  — > 
i  (call  display  rega-sr-drg-msg-11 ) 

i  (call  yes-no  s-r-h igh-meander ing-streams ) 

i  (remove  6) 

i  ) 

#  i 

ii  IF  ( MAXR.  LT.  100)00  TO  570 

ii  WRITE(LU(2),  565) 

(setq  rega-sr-drg-msg-11 

'(t  t  5  "Do  any  meander  segments  occur  above"  t 
5  "the  elevation  of  100'?"  t  t)) 
ii  READ(LU( 1 )»  *) IRSMH 

i  i 

i(p  rega-sr-str-dseg-rule 
i  (goal  rega) 

i  (rega  drainage) 

i  (drainage  sr-streams) 
i  (s-r-streams  t) 

i  (s-r-distributary-segments  unasked)  — > 
i  (call  display  rega-sr-drg-msg-12) 

i  (call  yes-no  s-r-d istributary-segments ) 

i  (remove  5) 

i  ) 

i  i 

ii  570  WRITE(LU(2)» 575) 

(setq  rega-sr-drg-msg-12 
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'  (t  t  5  "Do  any  of  the  streams  have"  t 
5  "distributary  segments?"  t  t>) 
a  READ ( LU ( 1 ) »  * ) I RSD 

a  IF<IRSD.  NE.  1)00  TO  585 

)  i 

«( p  rega-sr-str-h-dseg-rule 

>  (goal  rega) 

i  (rega  drainage) 

;  (drainage  sr-streams) 
i  (s— r-distributary-segments  t) 

i  (s-r-elevation  <>.  >  99) 

i  (s-r-high-distributary-segments  unasked)  — > 
i  (call  display  rega-sr-drg-msg-13) 

j  (call  yes-no  s-r-high-distributary-segments) 

*  (remove  6) 

:  ) 

j  i 

i  i  IF(MAXR.  LT.  100)00  TO  585 

a  WRITE(LU(2), 580) 

(setq  rega-sr-drg-msg-13 

'(t  t  5  "Do  any  of  the  distributary  segments"  t 
5  "occur  above  the  elevation  of  100'?"  t  t)) 
a  READ ( LU ( 1 ) »  * ) IRSDH 

i  i 

»(p  rega-sr-str-gradients-rule 

>  (goal  rega) 

i  (rega  drainage) 

i  (drainage  sr-streams) 

;  (s-r-streams  t) 

»  (s-r-strange-gradients  unasked)  — > 

>  (call  display  rega-sr-drg-msg-14) 

»  (call  yes-no  s-r-strange-grad ients ) 

;  (remove  5) 

i  ) 

«  i 

a  585  WRITE(LU(2)» 590) 

(setq  rega-sr-drg-msg-14 

'(t  t  5  "Now  scan  from  the  low  elevations  to  high"  t 
5  "elevations  along  the  streams  in  the"  t 
5  "study  region  to  detect  unanticipated  gradient"  t 
5  "changes.  Do  unexpected  gradient  changes  occur?"  t  t)) 
a  READ ( LU ( 1 ) <  * ) IRSO 

a  IF  ( IRSO.  NE.  1 )  GO  TO  600 

j  ) 

i  (p  rega-sr-str-gradients-incised-rule 
;  (goal  rega) 

•>  (rega  drainage) 

i  (drainage  sr-streams) 
i  (s-r-strange-gradients  t) 

i  ( s-r-strange-grad ients-inc i sed  unasked)  — > 

i  (call  display  rega-sr-drg-msg-15) 

i  (call  yes-no  s-r-strange-grad i ents-inc i sed ) 

i  (remove  5) 

i  ) 

i  i 

a  WRITE(LU(2)» 595) 

(setq  rega-sr-drg-msg-15 

'(t  t  5  "Is  the  stream  incised  and"  t 

5  "the  valley  walls  constricted  in  the  vicinity  of  the”  t 
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5  "gradient  change?"  t  t)) 
i  READ(LU( 1 ),  *) IRSGI 

i 

(p  rega-sr-str-done-rule 
(goal  rega) 

(rega  drainage) 

(drainage  sr-streams)  — > 
i  (modify  3  ^2  *a-rivers) 

> 

i 

#  ***************************************************************** 
i  STUDY  AREA  DRAINAGE 

i  ***************************************************************** 

i 

(p  rega-*a-drainage-start-rule 
(goal  rega) 

(rega  drainage) 

(drainage  sa-rivers) 

(s-r-rivers  t) 

(s-a-rivers  unasked)  — > 

(call  display  rega-sa-drg-msg-1 ) 

(call  yes-no  s-a-rivers) 

(remove  5) 

) 

i 

(p  rega-sa-no-sr-r iver-rule 
(goal  rega) 

<  (rega  drainage) 

>  (drainage  sa-rivers) 

»  (s-r-rivers  nil) 

»  (s-a-rivers  unasked)  — > 

;  (modify  3  A2  sa-streams) 

*  (modify  5  '"2.  nil  rega-sa-no-sr-river-rule ) 

;  ) 

#  i 

*(p  rega-sa-no-sa-r iver-rule 
;  (goal  rega) 

•  (rega  drainage) 

»  (drainage  sa-rivers) 

;  (s-r-rivers  t) 

»  (s-a-rivers  nil)  — > 

>  (modify  3  ^2  sa-streams) 

;  ) 

i  i 

a  600  WRITE ( LU ( 2 ) *  605 ) 

(setq  rega-sa-drg-msg-1 

'  (t  t  5  "We  are  now  interested  in  the  fresh  water  rivers"  t 
5  "and  streams  of  the  study  area. "  t 
5  "Are  there  any  rivers  in  the  study  area?"  t  t)) 
a  READ ( LU ( 1 ) <  * ) ISAC 

a  IF ( ISAC.  NE.  1  )G0  TO  640 

9  9 

•  (p  rega-sa-meander ing-r iver-rule 

*  (goal  rega) 

i  (rega  drainage) 

«  (drainage  sa-rivers) 

>  (s-a-rivers  t) 

>  (s-a-oieander ing-r ivers  unasked)  — > 

»  (call  display  rega-sa-drg-msg-2) 
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i  (call  yes-no  s-a-meandering-r ivers ) 

»  .(remove  5) 

;  ) 

i  i 

a  WR I TE ( LU ( 2 ) » 610) 

(setq  rega-sa-drg-msg-2 

'(t  t  5  "Does  any  river  in  the  study  area  have"  t 
5  "meanders?"  t  t)) 

ii  READ ( LU ( 1 ) »  * ) I SACM 

;  i  IF  ( I  SACM.  NE.  1)60  TO  620 

i  i 

a  IF(MAXS.  LT.  100)G0  TO  620 

a  WRITE(LU(2>,  615) 

j  # 

*  (p  rega-sa-high-meandering-river-rule 

•  (goal  rega) 

;  (rega  drainage) 

i  (drainage  sa-rivers) 

*  ( s-a-elevation  <>.  >  99) 

i  ( s-a-meander ing-ri ver s  t) 

»  (s-a-high-meandering-rivers  unasked)  — > 
i  (call  display  rega-sa-drg-msg-3) 

#  (call  yes-no  s-a-h igh-meandering-r ivers ) 

»  (remove  6) 

;  ) 

(setq  rega-sa-drg-msg-3 

'(t  t  5  "Do  any  of  the  river  meanders”  t 

5  "occur  above  the  elevation  of  100'?"  t  t)> 
a  READ ( LU ( 1 ) #  * ) I SACMH 

>  » 

i  (p  rega-sa-rapid-fall-river-rule 
i  (goal  rega) 
i  (rega  drainage) 
i  (drainage  sa-rivers) 
i  (s-a-r ivers  t) 

»  (s-a-rapid/fall-rivers  unasked)  — > 

■$  (call  display  rega-sa-drg-msg-4) 

i  (call  yes-no  s-a-rap id/f al 1-r ivers ) 

i  (remove  5) 

i  ) 

i  i 

a  620  WRITE(LU(2),  625) 

(setq  rega-sa-drg-msg-4 

'(t  t  5  "Does  the  map  indicate  the  existance  of"  t 
5  "rapids  or  falls  in  the  study  area  rivers?"  t  t)) 
a  READ ( LU ( 1 ) *  * ) I SARF 

i  # 

j(p  rega-sa-def lected-river-rule 
i  (goal  rega) 
i  (rega  drainage) 

>  (drainage  sa-rivers) 
i  (s-a-rivers  t) 

i  (s-a-rapid/fall-rivers  O  unasked) 
i  ( s-a-def lected-r ivers  unasked)  — > 
i  (call  display  rega-sa-drg-msg-5) 

i  (call  yes-no  s-a-def lected-rivers ) 

i  (remove  6) 
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a  MRITE(LU(2>.  630) 

(setq  rega-sa-drg-msg-5 

'(t  t  5  “Does  any  river  in  the  study  area"  t 

5  “have  a  sharp  alignment  change  along  the  channel"  t 
5  "centerline?"  t  t>) 
i  READ < LU ( 1 ) »  *) 1 SACD 

;  IF ( ISACD.  NE.  1  )G0  TO  640 

# 

( p  rega-sa-h igh-def lected-r i ver-rule 
(goal  rega) 

(rega  drainage) 

(drainage  sa-rivers) 

(s-a-rivers  t) 

(s-a-elevation  <>.  >  99) 

(s-a-def lected-r ivers  t) 

(s-a-h igh-def lected-r ivers  unasked)  — > 

(call  display  rega-sa-drg-msg-6) 

(call  yes-no  s-a-h igh-def lec ted-r ivers ) 

(remove  7) 

) 

i 

i  IF(MAXS.  LT.  100)00  TO  640 

;  WRITE(LU(2)» 635) 

(setq  rega-sa-drg-msg-6 

'(t  t  5  "Do  any  of  the  sharp  alignment  changes"  t 
5  "occur  above  the  elevation  of  100'?"  t  t)) 

;  READ ( LU ( 1 )  i  * ) I SACDH 

I 

(p  rega-sa-r iver-to-stream-rule 
(goal  rega) 

(rega  drainage) 

(drainage  sa-rivers) 

(s-a-rivers  t)  — > 

(modify  3  ~2  sa-streams) 

(remove  3) 

) 

i 

;  640  WRITE(LU(2),  645) 

) 

(p  rega-sa-  .ream-rule 
(goal  rega) 

(rega  drainage) 

(drainage  sa-streams) 

(s-r-streams  t) 

(s-a-streams  unasked)  — > 

(call  display  rega-sa-drg-msg-7) 

(call  yes-no  s-a-streams) 

(remove  5) 

) 

i 

(p  rega-sa-no-sr-stream-rule 
(goal  rega) 

(rega  drainage) 

(drainage  sa-streams) 

(s-r-streams  nil) 

(s-a-streams  unasked)  — > 

(r.odify  2  special) 

(remove  3) 

(modify  5  *2  nil  rega-sa-no-sr-stream-rule) 
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i 

(p  rega-sa-no-sa-stream-rule 
(goal  rega) 

(rega  drainage) 

(drainage  sa-streams) 

(s-r-str earns  t) 

( *-a-#tream.  nil)  — > 

(modify  2  ~2  special) 

(remove  3) 

) 

* 

(setq  rega-sa-drg-msg-7 

'(t  t  5  "Do  any  streams  exist  in  the”  t 
5  "study  area?"  t  t)) 
i  READ ( LU ( 1 ) <  * ) I SS 

i  IF(  ISS.  NE.  1  )G0  TO  700 

# 

(p  rega-sa-drg-meander-str-rule 
(goal  rega) 

(rega  drainage) 

(drainage  sa-streams) 

(s-a-streams  t) 

( s-a-meander ing-streams  unasked)  — > 

(call  display  rega-sa-drg-msg-B) 

(call  yes-no  s-a-meander ing-streams ) 

(remove  5) 

) 

» 

i  WRITE(LU(2).  650) 

(setq  rega-sa-drg-msg-B 

'(t  t  5  "Are  there  any  meander  segments"  t 

5  "along  the  streams  in  the  study  area?"  t  t)) 
i  READ(LU( 1 ) #  *) ISSM 

i  IFdSSM.  NE.  1  )G0  TO  660 

i 

( p  rega-sa-h igh-meander-stream-rule 
(goal  rega) 

(rega  drainage) 

(drainage  sa-streams) 

( s-a-elevation  O.  >  99) 

( s-a-meander ing-streams  t) 
(s-a-high-meandering-streams  unasked)  — > 

(call  display  rega-sa-drg-msg-9) 

(call  yes-no  s-a-high-meandering-streams) 

(remove  6) 

) 

;  IFU1AXS.  LT.  100>G0  TO  660 

i  WRITE(LU(2), 655) 

(setq  rega-sa-drg-msg-9 

'(t  t  5  "Do  any  of  the  meander  segments  occur"  t 
5  "above  the  elevation  of  100'?"  t  t)) 
ii  READ ( LU ( 1 )  i  * ) I SSMH 

i  i 

;(p  rega-sa-dseg-rule 
<  (goal  rega) 

>  (rega  drainage) 

;  (drainage  sa-streams) 
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i  ( s-a-meander ing-streams  O  unasked) 

i  (s-a-distributary-segments  unasked)  — > 

>  (call  display  rega-sa-drg-msg-10) 

<  (call  yes-no  s-a-distributary-segments) 

>  (remove  9) 

;  ) 

i  i 

a  660  WRITE(LU(2), 665) 

(setq  rega-sa-drg-msg-10 

' (t  t  9  “Do  any  of  the  streams  have"  t 
9  "distributary  segments?"  t  t)) 
i>  READ(LUd).  *)ISSD 

ii  IF(ISSD.  NE.  1)00  TO  675 

j  i 

»  (p  rega-sa-h igh-dseg-rule 

>  (goal  rega) 

•  (rega  drainage) 

>  (drainage  sa-streams) 

»  ( s-a-elevation  <>.  >  99) 

i  (s-a-distributary-segments  t) 

»  (s-a-h igh-distr ibutary-segments  unasked)  — > 

;  (call  display  rega-sa-drg-msg-i 1 ) 

i  (call  yes-no  s-a-high-distributary-segments) 

>  (remove  6) 

;  ) 

)  $ 

a  IF (MAXS.  LT.  100)00  TO  675 

ii  WRITE(LU(2), 670) 

(setq  rega-sa-drg-msg-1 1 

'( t  t  9  "Do  any  of  these  distributary  channels"  t 
9  “occur  above  the  elevation  of  100'?"  t  t)) 
a  READ(LUd).  *)ISSDH 

i  i 

;(p  rega-sa-grad ient-stream-rule 

;  (goal  rega) 

»  (rega  drainage) 

i  (drainage  sa-streams) 

»  (s-a-distr ibutary-segments  <>  unasked) 

i  (s-a-strange-gradients  unasked)  — > 

i  (call  display  rega-sa-drg-msg-12) 

■,  (call  yes-no  s-a-strange-gradients) 

;  (remove  9) 

i  ) 

i  i 

a  675  WRITE (LU(2) » 680) 

(setq  rega-sa-drg-msg-12 

'(t  t  5  "Now  scan  the  streams  in  the  study"  t 

9  "from  low  elevations  to  high  elevations  to  detect"  t 
9  "unexpected  gradient  changes.  Are  there  any  unexpected"  t 
5  "gradient  changes?"  t  t)) 
a  READ ( LU (1 ) »  * ) I SSC 

a  IF(ISS0.  NE.  1)00  TO  700 

i  # 

i  (p  rega-sa-gradient-incised-rule 

i  (goal  rega) 

;  (rega  drainage) 

>  (drainage  sa-streams) 

i  (s-a-strange-gradients  t) 

i  ( s-a-strange-grad ients-inc i sed  unasked)  — > 
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(call  display  rega-sa-drg-msg-13) 

(call  yes-no  s-a-strange-grad i ents-inc i sed ) 
(remove  5) 


i 


> 


i  i 

(  setq 


WRITE(LU(2).  685) 
rega-sa-drg-msg-13 

'(t  t  5  “Is  the  stream  incised  and"  t 

5  “the  valley  walls  constricted  in  the  vicinity  of  the"  t 
5  “gradient  change?"  t  t)) 

READ ( LU ( 1 ) *  * ) I SSG I 


<P 


rega-sa-str-done-rule 
(goal  rega) 

(rega  drainage) 

(drainage  sa-streams)  — > 
(modify  2  ~2  special) 
(remove  3) 


) 


***************************************************************** 
SPECIAL  QUESTIONS  ABOUT  STUDY  REGION  AND  STUDY  AREA 
***************************************************************** 


<P 


rega-spec ial-rule 
(goal  rega) 

(rega  special) 

(s-r-gravel-pits  unasked) 
(s-a-gravel-pits  unasked) 

(s-r-quarry  unasked) 

(s-a-quarry  unasked)  — > 

(call  display  rega-spec ial-msg ) 

rega-spc-pits-msg-1 ) 


(call  display 
(call  pause) 

(call  display  rega-spc-p i ts-msg-2) 
(remove  3) 

(make  s-r-gravel-pits  (acceptline) ) 
(call  display  rega-spc-p its-msg-3) 
(remove  4) 

(make  s-a-gravel-p its  (acceptline)) 
(call  display  rega-spc-quarry-msg-1 ) 
(remove  5) 

(make  s-r-quarry  (acceptline)) 

(call  display  rega-spc-quarry-msg-2) 
(remove  6) 

(make  s-a-quarry  (acceptline)) 

(call  clear) 

(modify  2  ~2  listing) 


i 


) 


ij  700  WRITE(LU(2),  705) 

(setq  rega-spec ial-msg 

'(t  t  5  "We  now  want  to  consider  detection  of  selected”  t 
5  "features  in  the  study  region  and  study  area  which”  t 
5  "have  significance  for  recognition  and  detection”  t 
5  "of  landform  types. "  t  t)> 
ii  WRITE(LU<2),  710) 

(setq  rega-spc-pits-msg-1 

'(t  t  5  "Search  the  study  region  outside  the  study"  t 
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5  "area  to  locate  gravel  pits  and  note  their"  t 
5  "associated  surface  elevations."  t  t)) 
i  ;  PAUSE  1 1 

II  WRITECLUC2). 720) 

(setq  rega-spc-pits-msg-2 

'(t  t  5  “If  you  have  located  any  gravel  pits  in  the  study"  t 
5  "region,  then  please  type  in  their  surface  elevations"  t 
5  “on  a  line  separated  by  spaces  and  surrounded  by  Os."  t 
5  "else  just  type  ()<cr>.  “  t  t>> 


t  i 

READCLU(l).  *)IR0P(1) 

i  i 

IFdROP(l).  EQ.  0)00  TO  735 

i  i 

DO  730  1-2.20 

i  i 

WRITE(LU<2),  725) 

i i  (setq 

rega-msg 

i  '(t  t  5  "If  you  have  found  another  gravel  pit  in  the"  t 

>  5  "study  region  type  its  surface  elevation,  otherwise”  t 

i  5  "type  "O'.  "  t  t) ) 

;  READ  (  LU ( 1 ) »  * ) I RQP  < I ) 

i  ZF(IRGP(I).  EQ.  0)00  TO  735 

i  730  CONTINUE 

i  735  WRITECLUC2),  740) 

(setq  rega-spc-pits-msg-3 

'(t  t  5  "Now  search  the  study  area  for  gravel  pits. "  t 
5  "Type  a  line  containing  the  elevations  of  all  the"  t 
5  "gravel  pits  found  in  the  study  area. ”  t 
5  "Remember  the  Os.  "  t  t)) 
ii  READ  <  LU  < 1 ) «  * ) I SOP  < 1 ) 

ii  IF(ISGPd).  EQ.  0)00  TO  755 

i  ,  DO  750  I«2,  20 

ii  WRITE<LU(2). 745) 

i  ■,  ( setq  rega-msg 

ii  '(t  t  5  "If  you  have  located  another  gravel  pit  in”  t 

;  i  5  "the  study  area  type  its  surface  elevation,  if  not"  t 

i  ;  5  "type  'O'.  "  t  t)  ) 

a  READ (LUC  1 ) , *) ISOP  < I ) 

i  i  IFdSCPd).  EQ.  0)00  TO  755 

i  i  750  CONTINUE 

i  s 

a  755  WR I TE ( LU  <  2 ) »  760 ) 

(setq  rega-spc-quarry-msg-1 

'(t  t  5  "Now  search  the  study  region  for  quarries.  "  t 
5  "Type  a  line  containg  the  elevations  of  all  the"  t 
5  "quarries  found  in  the  study  region. "  t 
5  "Remember  the  Os.  "  t  t)> 
a  READ  (LUC  1 ).  ■»)  IRRQC 1 ) 

a  IFCIRRQ(l).  EQ.  0)G0  TO  775 

i i  DO  770  1-2. 20 

a  WRITECLUC2).  765) 

i i (setq  rega-msg 

ii  '(t  t  5  "If  you  find  another  quarry  in  the  study  region"  t 

ii  5  "type  its  surface  elevation,  otherwise  type  'O'."  t  t)) 

a  READ (LUC  1 ) .  *) IRRQ( I ) 

a  IF(IRRQCI).  EQ.  0)00  TO  775 

i i  770  CONTINUE 

»  i 

a  775  WRITE(LU<2).  776) 

(setq  rega-spc-quarry-msg-2 
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'<t  t  5  "Now  search  the  study  area  for  quarries.  "  t 

5  "Type  a  line  containing  the  elevations  of  all  the"  t 
5  "quarries  found  in  the  study  area. "  t 
5  "Remember  the  <)s. “  t  t)) 
ii  READ(LU( 1 ) *  *) ISRQ< 1 ) 

ii  IF(ISRG<1).  EQ.  0)G0  TO  795 

i i  DO  790  1-2,  20 

»i  WRITE(LU<2),  780) 

i  i  <  setq  rega-msg 

ii  '(t  t  5  "If  you  find  another  quarry  in  the  study  area* "  t 

ii  5  "type  its  surface  elevation*  otherwise  type  'O'."  t  t)> 

ii  READ ( LU ( 1 ) *  * ) I SRQ < I ) 

ii  IF<ISRQ(I).  EQ.  0>C0  TO  795 

i i  790  CONTINUE 

i  i 

i i  795  CONTINUE 


****************************************************************** 
REGIONAL  ANALYSIS  SUMMARY 

****************************************************************** 
1000  CONTINUE 


i  STATUS  OF  REGIONAL  ANALYSIS  DECISIONS  AT  END  OF  PROGRAM 

i  | 

(p  r*ga-list-rule-l 
(goal  rega) 

(rega  listing) 

( s-r-elevation  <srmin>  <srmax>)  I 

(s-a-elevation  <samin>  <samax>)  ' 

<s-r-coastal-shor*lin*  <irc>) 

( s-r-coastal-shoreline-ext  <irc*>) 

<s-r-tidal-riv*r  <irtr>) 

< s-r-tidal-r iver-ext  <irtre>) 

< s-r-tidal-river-islands  <irtri>)  ! 

< s-r-low-coastal-shorel in*  <irlc>)  I 

< s-r-low-tidal-r iver  <irltr>) 

( s-r-low-al luvi a 1-channel  <irlac>) 

< s-r-tidal-r iver-roc k  <irtrr>) 

< s-r-tidal-r iver-mud  <irtrm>) 

< s-r-tidal-r iver-sand  <irtrs>)  s 

< s-r-low-terraces  <irtlo>)  I 

<  s-r-low-terraces-near-coast  <irtlc>) 

< s-r-low-terraces-near-ti da  1 -river  <irtltr>) 

( s-r-mid-terraces  <irt2o>) 

<s-r-high-t*rrac*s  <irt3o>) 

(s-r-rivers  <irac>) 

( s-r-meander ing-r ivers  <iracm>)  | 

( s— r — 1  ow~ niea ndering— rivers  <iracml>) 

< s-r-h igh-meander ing-r ivers  <iracmh>) 

( s-r-rap i d/fal 1 -river s  <irarf>) 

< s-r-def lected-r ivers  <iracd>) 

(s-r-high-d*f lected-rivers  <iracdh>)  1 

<s-r-str*ams  <irs>)  j 

<s-r-m*and*ring-streams  <irsm>) 

( s-r-h igh-meander ing-streams  <irsmh>) 

< s-r-d istributary-segments  <irsd>) 
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( s-r-h igh-d is tributary-segments  <irsdh> ) 

<s-r-strange-gradients  <irsg>> 

<  s-r-s trang e-grad i ent s-inc ised  Cirsg i>) 

< s-r-gravel-p its  <irgpl>  <irgp2>  <irgp3>  <irgp4>  <irgp5>) 

(s-r-quarry  <irrql>  <irrq2>  <irrq3>  <irrq4>  <irrq5>) 

(s-a-coastal-shorel ine  <isc>) 

( s-a-coastal-shoreline-ext  <isce>) 

< s-a-tidal-river  <istr>) 

< s-a-tidal-river-ext  <istre>> 

< s-a-ti dal -river-islands  <istri>) 

< s-a-low-coastal-shorel ine  <i slc>) 

< s-a-low-tidal-r iver  <isltr>) 

( s-a-low-alluvial-channel  <islac>) 

( s-a-max-coastal-shorel ine  <i smc>> 

( s-a-max-tidal-r iver  <ismtr>) 

( s— a-max— un— as soc iated  <ismz>) 

< s-a-t idal-r iver-roc k  <istrr>) 

< s-a-tidal-r iver-mud  <istrm>) 

(s-a-tidal-river-sand  <istrs>> 

< s-a-lou-terraces  <istlo>> 

< s-a-low-terraces-near-coast  <istlc>) 

< s-a-loui-terraces-near-tidal-river  Cist ltr>> 

< s-a-mid-terraces  Cist2o>) 

(s-a-high-terraces  <ist3o>) 

(s-a-rivers  <isac>) 

(s-a-meandering-rivers  Cisacm>) 

<  s-a-h igh-meandering-r ivers  <isacmh>) 

< s-a-rap id/fal 1-rivers  <isarf>> 

(s-a-def lected-rivers  <isacd>) 

<  s-a-h igh-def lected-rivers  <isacdh>) 

(s-a-streams  <iss>) 

<s-a-meandering-streams  <issm>) 

<  s-a-h igh-meandering-str earns  <issmh>) 

< s-a-d istr ibutary— segments  <issd>) 

( s-a-h igh-distributary-segments  <issdh>) 

<s-a-strange-gradients  <issg>) 

( s-a-strange-gradients-inc ised  <issgi>> 

(s-a-gravel-p its  <isgpl>  Cisgp2>  Cisgp3>  Cisgp4>  Cisgp5>) 

(s-a-quarry  <isrql>  Cisrq2>  Cisrq3>  Cisrq4>  Cisrq5>) 

— > 

(call  display  rega-1 isting-start-msg ) 

(call  pause) 

(call  display  rega-1 ist-header-msg ) 

(call  display  rega-1 ist-elv-msg  <srmin>  <srmax>  <samin>  <samax>) 

(call  display  rega-1 i st-sr-msg-1 > 

(call  display-tf  rega-1 i st-sr-msg-2  <irc>  <irce>  <irtr>  <irtre>) 

(call  display-tf  rega-1 ist-sr-msg-3  <irtri>  <irlc>  <irltr>  <irlac>) 
(call  display-tf  rega-1 ist-sr-msg-4  <irtrr>  <irtrm>  <irtrs>  <irtlo>) 
(call  display-tf  rega-list-sr-msg-5  <irtlc>  <irtltr>  Cirt2o>  Cirt3o>) 
(call  display-tf  rega-1 ist-sr-msg-6  Cirac>  <iracm>  <iracml>) 

(call  display-tf  rega-list-sr-msg-7  <iracmh>  <irarf>  Ciracd>) 

(call  display-tf  rega-1 i st-sr-msg-S  <iracdh>  <irs>  <irsm>  <irsmh>> 
(call  display-tf  rega-1 ist-sr-msg-9  <irsd>  <irsdh>  <irsg>  Cirsgi>) 
(call  display-and  rega-1 i st-sr-msg-10 

<irgpl>  Cirgp2>  Cirgp3>  <irgp4>  Cirgp5>) 

(call  display-and  rega-1 ist-sr-msg-1 1 

<irrql>  Cirrq2>  Cirrq3>  Cirrq4>  Cirrq5>) 

(call  display  rega-1 ist-sa-msg-1 ) 

(call  display-tf  rega-1 ist-sa-msg-2  <isc>  <isce>  <istr>  <istre>) 


i 

# 
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(call 

(call 

(call 

(call 

(call 

(call 

(call 

(call 

(call 

) 


display-tf  rega-1 i st-*a-msg-3  <istri>  <islc>  <isltr>  <islac>) 
display-tf  rega-1 i st-sa-msg-4  <ismc>  <ismtr>  <ismz>  <istrr>) 
display-tf  rega-1 ist-sa-msg-5  <istrm>  <istrs>  <istlo>  <istlc>) 
display-tf  rega-1 i st-sa-msg-6  <istltr>  <ist2o>  <ist3o>  <Cisac>) 
display-tf  rega-1 i st-sa-msg-7  <isacm>  CisacmhO  <isarf>  <isacd>) 
display-tf  rega-1 i st-sa-msg-8  <isacdh>  <iss>  <issm>  <issmh>) 
display-tf  rega-1 ist-sa-msg-9  <issd>  <issdh>  <issg>  <issgi>) 
display-and  rega-1 i st-sa-msg-10 

<isgpl>  <isgp2>  <isgp3>  <isgp4>  <isgp5>) 
display-and  rega-1 i st-sa-msg-1 1 

<isrql>  <isrq2>  <isrq3>  <isrq4>  <isrq5>) 


J  I 

ii  1500  WRITE(LU(2),  1502) 

(setq  rega-1 isting-start-msg 

' ( t  t  "I'll  wait  till  you  are  ready  to  list  the" 
t  "  REGIONAL  ANALYSIS  SUMMARY"  t  t>) 

;  ;  PAUSE  12 

;;  WRITE(LUO),  1505) 

(setq  rega-1 ist-header-msg 

Mt  t  t  5  "STATUS  OF  REGIONAL  ANALYSIS  DECISIONS"  t 
5  "  AT  END  OF  PROGRAM"  t  t>> 


i  i  WRITE  (LUO)  »  1510)MINR,  MAXR,  MINS.  MAXS 

(setq  rega-1 ist-elv-msg 

'("STUDY  REGION:  min-  "  (o  1)  ",  max-  "  (o  2)  t 
"STUDY  AREA:  min-  "  (o  3)  ",  max-  "  (o  4)  t  t)) 

i  i 

ii  WRITE(LU(3), 1515) 

(setq  rega-1 ist-sr-msg-1 

'(t  t  5  "STUDY  REGION  DECISIONS:"  t>> 

i  i  WRITE  (LUO) ,  1520)  IRC.  IRCE,  IRTR,  IRTRE,  IRTRI.  IRLC,  IRLTR,  IRLAC, 

i i  IRTRR.  IRTRM.  IRTRS,  IRT10,  IRT1C,  IRT1TR,  IRT20,  IRT30.  IRAC.  IRACM, 

i  i  I  RAC  ML,  IRACMH,  IRARF,  IRACD,  IRACDH,  IRS.  IRSM,  IRSMH,  IRSD. 

i i  IRSDH,  IRSG, IRSGI 
(setq  rega-1 ist-sr-msg-2 

Mt  "  IRC  -  "  (o  1)  ",  IRCE  -  "  (o  2) 

",  IRTR  -  "  (o  3)  ",  IRTRE  -  "  (o  4))) 

(setq  rega-1 ist-sr-msg-3 

'(t  "  IRTRI  -  "  (o  1)  ",  IRLC  -  "  (o  2) 

",  IRLTR  -  "  (o  3)  ",  IRLAC  -  "  (o  4))) 

(setq  rega-1 i st-sr-msg-4 

'(t  "  IRTRR  -  "  (o  1)  ",  IRTRM  -  "  (o  2) 

",  IRTRS  -  "  (o  3)  ",  IRT10  »  "  (o  4))) 

(setq  rega-1 ist-sr-msg-5 

'(t  "  IRT1C  -  "  (o  1)  ",  IRT1TR  -  "  <o  2) 

",  IRT20  -  "  (o  3)  ",  IRT30  -  "  (o  4))) 

(setq  rega-1 ist-sr-msg-6 

'(t  "  IRAC  -  "  (o  1)  ",  IRACM  »  "  (o  2)  ",  IRACML  -  "  (o  3))) 
(setq  rega-1 ist-sr-msg-7 

Mt  "  IRACMH  ■  "  (o  1)  ",  IRARF  =  "  (o  2)  ",  IRACD  *  "  (o  3))) 
(setq  rega-1 i st-sr-msg-8 

Mt  "  IRACDH  -  "  (o  1)  ",  IRS  »  "  (o  2) 

",  IRSM  »  "  (o  3)  ",  IRSMH  -  "  (o  4))) 

(setq  rega-list-si — msg-9 

Mt  "  IRSD  -  "  (o  1)  ",  IRSDH  =  "  (o  2) 

",  IRSG  »  "  (o  3)  ",  IRSGI  -  "  (o  4)  t>) 


IF(IRGP(1).  EQ.  0)G0  TO  1524 
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ii  URITE(LU(3), 1521) 

<**tq  r*ga-l ist-sr-msg-10 

'(t  t  5  "ELEVATION  OF  GRAVEL  PITS  IN  STUDY  REGION"  t 
10  (o  1)  "  "  <o  2)  "  “  <o  3)  "  "  (o  4)  "  "  <o  5))) 
ii  DO  1523  1-1,20 

ii  ZF(ZROP(I).  EQ.  0)G0  TO  1524 

ii  WRITE (LU(3),  1522) Ii IRGP(I) 

i  i  1523  CONTINUE 

i  i 

ii  1524  IF(IRRQ(1).  EQ.  0)G0  TO  1550 

ii  WRITE<LU<3), 1525) 

(s*tq  r*ga-l i*t-*r-msg-l 1 

Mt  t  5  "ELEVATIONS  OF  QUARRIES  IN  STUDY  REGION:"  t 
10  <o  1)  "  "  ( o  2)  "  "  ( o  3)  "  "  (o  4)  "  "  (o  5))) 
ii  DO  1527  1-1,20 

ii  IFdRRQ(I).  EQ.  0)G0  TO  1550 

ii  WRITE(LU(3), 1522)1, IRRQ(I) 

i i  1527  CONTINUE 


i  i  - 

i  i  STUDY  AREA  DECISIONS 

i  i  - 


ii  1550  WRITE(LU<3), 1555) 

<s*tq  r*ga-l ist-sa-m*g-l 

Mt  t  5  "STUDY  AREA  DECISIONS:"  t)) 
i i  WR I TE ( LU < 3 ) ,  1560) ISC,  ISCE,  ISTR, ISTRE,  ISTRI,  ISLC.  ISLTR,  ISLAC, 

i i  I SNC,  ISMTR,  ISMZ, ISTRR.  ISTRM,  ISTRS,  IST10.  IST1C,  IST1TR.  IST20. 

i  i  IST30.  I  SAC,  ISACM,  ISACMH,  ISARF,  ISACD.  ISACDH,  ISS,  ISSN.  ISSMH, 

i  i  ISSD.  ISSDH,  ISSO,  ISSOI 

<s*tq  r*ga-l i*t-*a-m*g-2 

'(t  "  ISC  -  "  (o  1)  ",  ISCE  «  "  <o  2) 

",  ISTR  -  "  <o  3)  ",  ISTRE  -  "  (o  4))) 

(••tq  r*ga-li*t-*a-m*g-3 

Mt  "  ISTRI  -  "  <o  1)  ",  ISLC  -  "  <o  2) 

",  ISLTR  -  "  (o  3)  ",  ISLAC  -  "  (o  4))) 

(**tq  r*ga-l i»t-*a-m*g-4 

Mt  "  I SMC  «  "  <o  1)  ",  ISMTR  -  ”  <0  2) 

",  ISMZ  -  "  (o  3)  ",  ISTRR  -  "  <o  4))) 

(s*tq  rega-1 ist-sa-m*g-5 

Mt  "  ISTRM  -  "  <o  1)  ",  ISTRS  -  "  (o  2) 

",  IST10  »  "  (o  3)  ",  I STIC  -  "  (o  4))) 

(s*tq  r*ga-l ist-sa-m*g-6 

Mt  "  IST1TR  -  "  (o  1)  ",  IST20  -  "  (o  2) 

",  IST30  -  "  <o  3)  ",  ISAC  -  "  <o  4))) 

<»*tq  r*ga-l ist-sa-m*g-7 

Mt  "  ISACM  -  "  <o  1)  ",  ISACMH  -  "  (o  2) 

",  ISARF  ■  "  <o  3)  ",  ISACD  »  "  <o  4))) 

<s*tq  r*ga-l ist-*a-msg-8 

Mt  "  ISACDH  -  "  <o  1)  ",  ISS  -  "  (o  2) 

",  ISSM  -  "  (o  3)  ",  ISSMH  »  "  (o  4))) 

<s*tq  r*ga-li*t-*a-m«g-9 

Mt  "  ISSD  -  "  (o  1)  ",  ISSDH  -  "  (o  2) 

",  ISSO  -  ”  (o  3)  ",  ISSOI  -  "  (o  4>>) 

i  i 

ii  IF(ISOPd).  EQ.  0)G0  TO  1580 

ii  WRITE(LU(3),  1565) 

(s*tq  r*ga-l ist-*a-m*g-10 

Mt  t  5  "ELEVATIONS  OF  GRAVEL  PITS  IN  STUDY  AREA:"  t 
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10  <  o  1)  "  “  (o  2)  "  "  (o  3)  "  "  (o  4)  "  "  (o  5))) 
ii  DO  1575  1-1,20 

ii  IF( ISGP ( I ) .  EQ.  0  >G0  TO  1580 

ii  WRITE(LU(3), 1522)1, ISGP(I) 

ii  1575  CONTINUE 

i  i 

ii  1580  I F ( I SRQ ( 1 ) .  EQ.  0 ) GO  TO  1600 

ii  WRITE(LU<3>, 1585) 

(s*tq  r*g*“l i st-sa-msg-1 1 

'<t  t  5  "ELEVATIONS  OF  ROCK  QUARRIES  IN  STUDY  AREA."  t 
10  (o  1)  "  "  <o  2)  "  "  <o  3)  "  ■  <o  4)  "  "  (o  5))) 
ii  DO  1590  1-1,20 

ii  IF( ISRQ( I ) .  EQ.  0)00  TO  1600 

ii  WRITE(LU(3), 1522)1, ISRQ< I) 

i  i  1590  CONTINUE 

i  i 

i  i  1600  CONTINUE 

»  i 

i(p  r*ga-l isting-don*-rule 
i  (goal  r*ga) 

i  (r*ga  listing)  — > 

i  (modify  2  ~2  don*) 

i  ) 


i  i  RETURN  TO  EXECUTIVE  PROGRAM  SEGMENT 

i i  TO  BEGIN  DETAILED  STUDY  AREA  ANALYSIS 

i  i 

j  ******************************************************************* 

ii  CALL  EXEC (8. ICALAP) 

i  i 

i  i  END 

(t*rpr) 

(princ  "REGA.  L  Loaded") 

(t*rpr) 
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regin.  1 


Regional  Initialization  Program 


Fortran  System:  Robert  Leighty  USAETL 

□PS5  System:  Kenneth  Hayes  Smart  Systems  Technology 

DUCK  System:  Kenneth  Hayes  Smart  Systems  Technology 

SUBROUTINE  REGIN 

************************************************************* 

INITIALIZES  VARIABLES  IN  SEGMENTED  PROGRAM  REGA 
(SEE  GLOSSARY  IN  FILE  'REGGLO ' ) 

RDL  MAY  1981 

***************************************************************** 

COMMON  LU <  5 ) * MLAT 1(3).  MLON1 <  3 >  <  MLAT2 ( 3 ) ,  ML0N2 ( 3 ) .  ISTEP, MINR, 

*  MAXR, MINS.  MAXS 

COMMON  IRC,  ISC,  IRCE,  ISCE,  IRTR,  ISTR,  IRTRE,  ISTRE,  IRLC, 

*  IRLAC,  ISLC, ISLTR,  ISLAC,  ISMC,  ISMTR,  IRTRR,  IRTRM,  IRTRS,  ISTRR, 

*  ISTRM,  ISTRS,  ISMZ,  IRT10,  IRT1C,  IRT1TR,  IST10,  IST1C,  IST1TR.  IRT20. 

*  IST20,  IRT30,  IST30,  IRAC,  IRACM,  IRACML,  IRACMH,  IRARF,  IRACD,  IRACDH, 

*  IRS,  IRSM,  IRSMH,  IRSD,  IRSDH,  IRSG,  IRSGI.  ISAC,  ISACM,  ISACMH.  ISARF, 

*  ISACD,  ISACDH,  ISS.  ISSM,  ISSDH.  ISSG,  ISSGI.  IRLTR,  ISSD,  ISSMH, 

*  IRGP ( 20 ) ,  IRRG  <  20) ,  ISGP(20>,  ISRQ(20>,  IRTR I ,  ISTRI 


INITIALIZE  STUDY  REGION  DECISION  VARIABLES 


(lisprule  reg in-unasked-rule  (feature  ?x  )  -> 
(neglecting  '(ansed  ?x) 

(premiss  '(unasked  ?x>) 

) 


(rule  answered-i s-ansed 

(->  (answer  ?x  ?y )  (ansed  ?x )  ) 


(lisprule  regin-rule  (goal  regin)  -> 

(for  (x  in  (get  'FEATURE  'examples)) 

(do  (premiss  '(feature  ,x))) 

) 

(for  (x  in  '  (s-r-gravel-pits  s-r-quarry  s-a-gravel-pits  s-a-quarry)) 
(do  (premiss  Mspfeature  ,x))) 

) 

(premiss  '(done  regin)) 

) 

i 

>  (p  reg in-sr-rul e 
i  (goal  regin)  — > 

i  (make  s-r-coastal-shorel ine  unasked) 

i  (make  s-r-coastal-shoreline-ext  unasked) 

i  (make  s-r-tidal-river  unasked) 

i  (make  s-r-tidal-river-ext  unasked) 


SSf 


I 

l. 
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unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked  > 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked  > 
unasked  > 
unasked  > 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked  > 
unasked  > 

) 

IRC=2 

IRCE-2 

IRTR-2 

IRTRE-2 

IRTRI-2 

IRLC-2 

IRLTR-2 

IRLA02 

IRTRR-2 

IRTRM-2 

IRTRS-2 

IRT10*2 

IRT1C-2 

IRT1TR-2 

IRT20-2 

IRT30-2 

I RAC-2 

IRACM-2 

IRACML-2 

IRACMH-2 

IRARF-2 

IRACD-2 

IRACDH-2 

IRS-2 

IRSM-2 

IRSMH-2 

IRSD-2 

IRSDH-2 

IRSG-2 

IRSGI-2 


(make  s—r-tidal— river-islands 

(make  s-r-low-coastal-shorel ine 

(make  s-r-low-tidal-river 

(make  s-r-low-al luvial-channel 

(make  s-r-tidal-r iver-roc k 

(make  s-r-tidal-r iver-mud 

(make  s-r-tidal-river-sand 

(make  s-r-loui-terraces 

(make  s-r-1  oui-t err aces-near-c oast 

(make  s-r-1 ow-terraces-near-ti dal -river 

(make  s-r-mid-terraces 

(make  s-r-h igh-terraces 

(make  s-r-rivers 

(make  s-r-meander ing-r ivers 

(make  s-r-lou-meander ing-r ivers 

(make  s-r-h igh-meandering-r ivers 

(make  s-r-rapid/fall-rivers 

(make  s-r-def lected-rivers 

(make  s-r— high— deflected-rivers 

(make  s-r-streams 

(make  s-r-meander ing-streams 

(make  s-r-h igh-meand er ing-streams 

(make  s-r-d istributary-segments 

(make  s-r-h igh-d is tr ibutary -segment s 

(make  s-r-strange-grad ients 

(make  s-r-strange-grad ients-incised 

(make  s-r-init) 
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INITIALIZATION  OF  STUDY  AREA  DECISIONS 


<P 


i 


i 


reg in-sa-rule 
(goal  regin)  — > 

(make  s-a-coastal-shorel ine 

(make  s-a-coastal-shorel ine-ext 

(make  s-a-tidal-r iver 

(make  s-a-tidal-r iver-ext 

(make  s-a-tidal-river-islands 

(make  s-a-low-coastal-shorel ine 

(make  s-a-low-tidal-river 

(make  s-a-low-alluvial-channel 

(make  s-a-max-coastal-shorel ine 

(make  s-a-max-tidal-river 

(make  s-a-max-un-assoc iated 

(make  s-a-tidal-river-roc k 

(make  s-a-tidal-r iver-mud 

(make  s-a-tidal-river-sand 

(make  s-a-low-terraces 

(make  s-a-loui-terraces-near-c oast 

(make  s-a-loui-terraces-near-tidal-r iver 

(make  s-a-mid-terraces 

(make  s-a-h igh-terraces 

(make  s-a-rivers 

(make  s-a-meander ing-rivers 

(make  s-a-loui-meandering-r ivers 

(make  s-a-h igh-meander ing-rivers 

(make  s-a-rap id/fal I-r ivers 

(make  s-a-def lected-r ivers 

(make  s-a-high-def lected-rivers 

(make  s-a-streams 

(make  s-a-meander ing-streams 

(make  s-a-h igh-meander ing-streams 

(make  s-a-d i str i butary-segments 

(make  s-a-h igh-d i str i butary-segments 

(make  s-a-strange-grad ients 

(make  s-a-s trang e-grad i en t s-inc i sed 

(make  s-a-init) 

) 


unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked  ) 
unasked ) 
unasked  ) 
unasked ) 
unasked ) 
unasked  > 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked  ) 
unasked ) 
unasked ) 
unasked  ) 
unasked ) 
unasked  > 
unasked  > 
unasked  ) 
unasked  > 
unasked  > 
unasked  > 
unasked  ) 
unasked ) 


>  i  ISC-2 

»  i  ISCE-2 

i  ;  I STR— 2 

;  ;  ISTRE-2 

i  ;  I STR I *2 

i  i  ISLC-2 

i  i  ISLTR-2 

i  ;  ISLAC-2 

i  ;  I SMC— 2 

i  i  ISMTR-2 

i  i  ISMZ-2 

i  i  ISTRR-2 

;  ;  ISTRM-2 

;  i  ISTRS-2 

;  i  I ST 10-2 

;  i  IST1C-2 


n-vNy ^  '.'a1'  ■-/  -Sk? 
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IST1TR=2 

IST20*2 

IST30=2 

I SAC “2 

I SACM=2 

ISCAMH-2 

ISARF-2 

ISACD=2 

ISACDH-2 

ISS-2 

ISSM-2 

ISSMH-2 

ISSD-2 

ISSDH-2 

ISSC-2 

ISSOI-2 

(p  regin-sr-extra-rule 
(goal  regin)  — > 

(make  s-r-unknown  -omni-empty-) 

(make  s-r-gravel-p its  unasked  nil  nil  nil  nil) 
(make  s-r-quarry  unasked  nil  nil  nil  nil) 

(make  s-r-e-init) 

) 


nil  nil  nil ) 
nil  nil  nil) 


;  RETURN 

i 

(p  regin-done-rule 
(goal  regin) 

( s-r-init ) 

( s-a-init ) 

<  s-r-e-init) 
(s-a-e-init)  — > 
(modify  1  ~1  done) 
(remove  2345) 

) 

# 

;  END 

( terpr ) 

(princ  "REGIN.  L  Loaded") 
( terpr ) 


(p  reg in-sa-extra-rule 
(goal  regin)  — > 

(make  s-a-unknouin  -omni-empty-) 

(make  s-a-coastal-beach 

(make  s-a-coastal-beach-ridge 

(make  s-a-coastal-suale 

(make  s-a-coastal-sand 

(make  s-a-coastal-ponded-depression 

(make  s-a-coastal-islands 

(make  s-a-coastal-bars 

(make  s-a-coastal-bed-roc k 

(make  s-a-gravel-p its 

(make  s-a-quarry 

(make  s-a-e-init) 

) 


unasked  ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked ) 
unasked  nil 
unasked  nil 
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regas.  1 


Regional  Analysis  Summary  Program 


Fortran  System:  Robert  Leighty  USAETL 

0PS5  System:  Kenneth  Hayes  Smart  Systems  Technology 

DUCK  System:  Kenneth  Hayes  Smart  Systems  Technology 

PROGRAM  REGAS(5) 

****************************************************************** 
REGIONAL  ANALYSIS  SUMMARY  SEGMENT  OF  PROGRAM  CALAP. 

RDL,  MAY  SI 

***************************************************************** 

COMMON  LU(5),  MLAT1 <  3  > » MLON 1 ( 3  >  >  MLAT2 ( 3 ) > ML0N2(3),  ISTEP. MINR, 

*  MAXR,  MINS,  MAXS 

COMMON  IRC, ISC, IRCE, ISCE, IRTR, ISTR, IRTRE, ISTRE, IRLC, 

*  IRLAC,  ISLC,  ISLTR,  ISLAC,  ISMC,  ISMTR,  IRTRR,  IRTRM,  IRTRS,  ISTRR, 

*  ISTRM,  ISTRS,  ISMZ,  IRT10,  IRT1C,  IRT1TR,  IST10.  IST1C.  IST1TR,  IRT20, 

*  IST20, IRT30, IST3Q, IRAC, IRACM, IRACML, IRACMH, IRARF, IRACD. IRACDH, 

*  IRS,  IRSM,  IRSMH,  IRSD,  IRSDH,  IRSG,  IRSGI,  ISAC,  ISACM,  ISACMH,  ISARF, 

*  ISACD,  ISACDH,  ISS,  ISSM,  ISSDH,  ISSG,  ISSGI,  IRLTR,  ISSD,  ISSMH, 

*  IRGP (20) , IRRQ ( 20 ) , ISGP(20>, ISRQ(20>, IRTR I , ISTRI 

DIMENSION  I CALAP (3) 

DATA  ICALAP/2HXC.  2HAP,  2HI  / 


INTRODUCTION 


(lisprule  regas-rule  (goal  regas)  -> 

(display  'regas-summary-msg  nil) 

( f or-f irst-ans  (fetch  '(study-region  ?s  ?p ) ) 
(display  'regas-study-reg ion-msg  (list  ?s  ?p ) ) 


(display 

(display 

(premiss 
(premiss 
( premiss 


'r eg a s-sr-elevat ion-msg 

(list  (gans  srmin)  (gans  srmax))) 

'regas-sa-elevat ion-msg 

(list  (gans  samin)  (gans  samax))) 

'(goal  regas-coastal ) ) 

'(goal  regas-tidal-river)) 

'  (done  regas ) ) 


(lisprule  regas-coastal  (goal  regas-coastal ) 
(for  Cx  in  '  ( s-r-coastal-shore 1 ine 

s-r-coastal-shorel ine-ext 
5-r-loui-coasta  1-shore  1  ine  )  3 
Cy  in  '  < regas-coas tal-msg-1 
regas-coastal-msg-2 
regas-coastal-msg-3) 3 
(do  ( f or-f irst-ans  (fetch  '(answer  »x 


?z  )  ) 


(cond  C?z  (display  y  (list  ?z))3) 


I 
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) 


) 


(lisprule  regas-tidal-r iver  (goal  regas-tidal-r iver ) 
(for  Cx  in  * ( s-r-tidal-r iver 

s-r-ti da  1-river-roc  k 

s-r-tidal-r iver-mud 

s-r-tidal-r iver-sand 

s-r-ti da 1-river-ext 

s-r-low-ti da 1-river 

s-r— low-terraces 

s-r-lou»-terrace  5-near-coast 

s-r-low-terraces-near-tidal-r iver ) 3 

Cy  in  ' (regas-tidal-msg-1 
regas-tidal-msg-2 
regas-tidal-msg-3 
regas-tidal-msg-4 
regas-tidal-msg-5 
regas-tidal-msg-6 
regas-tidal-msg-7 
regas-tidal-msg-8 
regas-tidal-msg-9) 3 

(do  (f or-f irst-ans  (fetch  '(answer  >x  ?z)) 
(cond  C?z  (display  y  (list  ?z))3) 

) 

) 

) 


) 


-> 


«  (p  rega»-rule-l 

>  (goal  regas) 

;  (study-region  <a>  <b>)  — > 

>  (call  display  regas-summary-msg ) 

»  (call  display  regas-study-reg ion-msg  <a>  <b>) 

i  (make  regas  start) 

i  ) 

i  i 

ii  WRITE(LU(3). 100) 

(setq  regas-summary-msg 

' (t  t  t  "  e**********************************************"  t  t 
10  "SUMMARY  OF  STUDY  REGION  ANALYSIS"  t 
10  " - "  t  t  t)  ) 

i  l 

»(p  regas-elevation-rule 

*  (goal  regas) 

*  ( s-r-e leva t ion  <min-r>  <max-r>) 

»  (s-a-elevation  <min-a>  <max-a>) 

»  (regas  start)  — > 

i  (call  display  regas-sr-elevation-msg  <min-r>  <max-r>) 

*  (call  display  regas-sa-elevation-msg  <min— a>  <max-a>) 

J  ) 


ii  WRITE(LU(3). 105) 

(setq  regas-study-reg ion-msg 

'(t  t  5  "The  study  region  is  located  in  the  "  (o  1)  t 
5  "of  the  "  (o  2)  "  Physiographic  Province.  "  t)) 
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ii  WRITE  (LUO)  i  110)M1NRi  MAXR 

(setq  regas-sr-e levati on-msg 

Mt  t  5  "The  minimum  elevation 
5  "and  the  maximum  elevation 
(setq  regas-sa-elevation-msg 

'(t  t  5  "The  minimum  elevation 
9  "and  the  maximum  elevation 


in  the  study  region  is 
is  "  (o  2)  "  t) ) 

in  the  study  area  is  " 
is  "  (o  2)  ".  "  t)  ) 


"  (o  1)  t 

(o  1)  t 


COASTAL  SHORELINE 


;  (p  regas-coastal-rule 

•  (goal  regas) 

#  (s-r-coastal-shoreline  <irc>) 

»  (s-r-coastal-shoreline-ext  <irce>) 

■  (s-r-lou-coastal-shoreline  <irlc>) 

;  (regas  start)  — > 

>  (call  asked-display  <irc>  regas-coastal-msg-1 ) 

i  (call  asked-display  <irce>  regas— coastal-msg-2) 

>  (call  asked-display  <irlc>  regas-coastal-msg-3) 

;  ) 

i ;  IF( IRC.  NE.  1 )G0  TO  125 

ii  WRITE(LUO),  115) 

(setq  regas-coastal-msg-1 

'(t  t  5  "The  study  region  contains  a  coastal  shoreline.  ”  t)) 
ii  IF  ( IRCE.  NE.  1 )  GO  TO  125 

ii  WRITE(LU(3),  120) 

(setq  regas-coastal-msg-2 

Mt  t  5  "The  coastal  features  appear  to  extend  into  the”  t 
5  "study  area  from  the  coastline."  t)) 

i  i 

ii  125  IF(IRLC.  NE.  1)G0  TO  135 

ii  WRITE(LU(3),  130) 

(setq  regas-coastal-msg-3 

'(t  t  5  "Though  a  coastal  shoreline  does  not  exist  in  the"  t 
5  "study  region>  it  is  believed  that  the  minimum  regional"  t 
5  "elevation  is  associated  with  a  coastal  shoreline  that"  t 
5  "exists  outside  the  study  region."  t)) 


i  i  TIDAL  RIVER 


i(p  regas-tidal-river-rule 
i  (goal  regas) 

.  ( s-r-tidal-r iver  <irtr>) 

i  (s-r-tidal-river-roc k  <irtrr>) 
i  ( s-r-tidal-river-mud  <irtrm>) 
i  ( s-r-tidal-river-sand  <irtrs>) 
i  ( s-r-tidal-river-ext  <irtre>) 

i  ( s-r-low-tidal-river  <irltr>) 

i  ( s-r-low-terraces  <irtlo>) 
j  ( s-r-low-terraces-near-coast  <irtlc>) 
i  (s-r-low-terraces-near-tidal-river  <irtltr>) 
i  (regas  start)  — > 

i  (call  asked-display  <irtr>  regas-tidal-msg-1 ) 

i  (call  asked-display  <irtrr>  regas-tidal-msg-2) 
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i 


(call 

(call 

(call 

(call 

(call 

(call 

(call 

) 


asked-display 
asked-display 
asked-display 
asked-display 
asked-display 
asked-d isp lay 
asked-display 


<irtrm> 
<irtrs> 
<irtre> 
<ir ltr> 
<irtlo> 
<irtlc> 
<irtl tr> 


regas-tidal-msg-3) 

regas-tidal-msg-4) 

regas-tidal-msg-5) 

regas-tidal-msg-6) 

regas-tidal-msg-7> 

regas-tidal-msg-8) 

regas-tidal-msg-9) 


ii  135  IF ( IRTR.  NE.  1 )G0  TO  170 
ii  WRITE(LU(3)i  140) 

(setq  regas-tidal-msg-1 

'(t  t  5  "The  study  region  contains  a  tidal  river  section. ")) 


ii  IFdRTRR.  NE.  1)00  TO  150 

ii  WRITE(LU(3)< 145) 

(setq  regas-t idal-msg-2 

'(t  t  5  "The  map  indicates  rock  in  the  river  channel.  “)) 


ii  150  IF ( IRTRM.  NE.  1 ) GO  TO  160 
ii  WRITE(LU(3)< 155) 

(setq  regas-tidal-msg-3 

'(t  t  5  "The  map  indicates  mud  flats  exist  in  the  river  bed.")) 


ii  160  IF  ( IRTRS.  NE.  1  )G0  TO  170 
ii  WRITE(LU(3)» 165) 

(setq  regas-tidal-msg-4 

'(t  t  5  "The  map  indicates  sand  bars  in  the  river  channel.  ")) 

i  i 

ii  170  IF(IRTRE.  NE.  1)00  TO  180 

ii  WRITE(LU(2)» 175) 

(setq  regas-tidal-msg-5 

'(t  t  5  "Though  a  tidal  river  does  not  exist  in  the  study"  t 
5  "region,  tidal  river  features  extend  into  the  study"  t 
5  "region.  ")  ) 


ii  180  IFdRLTR.  NE.  1)00  TO 
ii  WRITE(LU(2>.  185) 

(setq  regas-tidal-msg-6 

'(t  t  5  "The  regional 
5  "beyond  the  study 


190 

low  is  associated 
region.  " ) ) 


with 


tidal  river"  t 


ii  190  IF( IRT10.  NE.  1 )G0  TO  210 
ii  WRITE(LU(2),  195) 

(setq  regas-tidal-msg-7 

'(t  t  5  "Level  land  areas  between  20'  and  50'  are  found”  t 
5  "in  the  study  region.")) 


ii  IFdRTIC.  NE.  1)G0  TO  200 

ii  WRITE(LU(2). 198) 

(setq  regas-tidal-msg-8 

'(t  t  5  "These  surfaces  are  in  the  vicinity  of  the  coast.")) 


ii  200  IF( IRT1TR.  NE.  1 >00  TO  210 
ii  WRITE(LU(2). 205) 

(setq  regas-tidal-msg-9 

'(t  t  5  "These  surfaces  are  in  the  vicinity  of  a  tidal"  t 
5  "river.  "  ) ) 
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i  i  210  CONTINUE 
i  i  1000  CONTINUE 


i  i  RETURN  TO  EXECUTIVE  PROGRAM 


i  * 

* (p  regas-done-rule 

*  (goal  regas) 

»  (regas)  — > 

*  (remove  2) 

i  (modify  1  A1  done) 

i  ) 

*  i 

a  CALL  EXEC (8. ICALAP) 

i  i 

i  i  END 

( terpr ) 

(princ  "REGAS.  L  Loaded") 

( terpr ) 
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deta.  1  Detailed  Analysis  Program 


Fortran  System: 
0PS5  System: 
DUCK  System: 


Robert  Leighty 
Kenneth  Hayes 
Kenneth  Hayes 


USAETL 

Smart  Systems  Technology 
Smart  Systems  Technology 


PROGRAM  DETA(5) 


r 


r 


♦♦a************************************************.*#********#*** 
DETAILED  ANALYSIS  SEGEMENT  FOR  PROGRAM  CALAP 
RDL,  MAY  81 


r 

i  '• 

i 

r 


:c 

!c 


c 


c 

c 


c 

i 

< 

•  / 
V. 


. 


; i  ************H***************************************************** 

i  i 

a  COMMON  LU ( 5 ) , MLAT 1(3). MLON 1 ( 3 ) >  ML AT2 ( 3 ) • ML0N2 ( 3 ) ,  I STEP » M I  NR , 

i  i  *  MAXR.  MINS,  MAXS 

I  » 

i  i  COMMON  IRC,  ISC,  IRCE,  ISCE,  IRTR,  ISTR,  IRTRE,  ISTRE,  IRLC, 

i i  *  IRLAC, ISLC, ISLTR, ISLAC, ISMC, ISMTR, IRTRR. IRTRM, IRTRS, ISTRR, 

i  i  *  ISTRM,  ISTRS,  ISMZ,  IRT10,  IRT1C.  IRT1TR,  IST10.  IST1C.  IST1TR,  IRT20. 

i i  *  IST20,  IRT30,  IST30,  IRAC,  IRACM,  IRACML,  IRACMH,  IRARF,  IRACD,  IRACDH, 

i i  *  IRS,  IRSM,  IRSMH,  IRSD,  IRSDH,  IRSG,  IRSGI,  ISAC.  ISACM,  ISACMH.  ISARF. 

;  i  *  ISACD,  ISACDH,  ISS,  ISSM.  ISSDH,  ISSG.  ISSGI,  IRLTR,  ISSD,  ISSMH, 

ii  *  IRGP<20), IRRQ(20), ISGP(20), ISRQ(20), IRTRI, ISTRI 

i  » 

i  i  DIMENSION  I CALAP  <  3 ) ,  IYES<2>,  IN0(2),  IBEGIN(3),  INEXT(2),  IANSD<3> 

i  i 

i  i  DATA  ICALAP/2HXC,  2HAP.  2HI  / 

i i  DATA  IYES/2HYE, 2HS  /,  INO/2HNO,  2H  / 

ii  DATA  IBEGIN/2HBE,  2HGI,  2HN  / 

i  i  DATA  INEXT/2HNE, 2HXT/ 


INTRODUCTION 


(lisprule  deta-rule  (goal  deta)  -> 

(display  'deta-area-msg  nil) 

(pause ) 

(cond  Kgans  s-a-coastal-shorel ine ) 

(display  'deta-shore-msg-l  nil) 

( pause ) 

(premiss  '(goal  shore))! 

Kgans  s-r-coastai-shorel ine-ext ) 

(display  'deta-shore-ext-msg  nil) 

(premiss  '(goal  shore))! 

C (gans  s-a-lou-coastal-shoreline) 

(display  'deta-shore-h ide-msg  nil) 

(premiss  '(goal  shore))! 

Ct  (display  'deta-shore-h i de-msg  nil)! 

) 

(cond  C(gans  s-a-tidal-r iver )  (premiss  '(goal  tidal-river))!) 
(premiss  '(done  deta)) 

) 


, 


_ fltwiw  vm ww  w  upai  »’  ^  r  m  i'  i.wwim  w?  py-j  t1.  n  -■"  *j  * .  tjw  »>/’*  -t  b».ih.t 
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(lisprule  deta-shore  (goal  shore)  -> 

(display  'deta-shore-help-msg  nil) 

(con d  C(is-yes  (dread))  (premiss  '(goal  shore-menu))!) 

(cond  C(and  (not  (gans  s-a-coastal-shorel ine ) ) 


(not  (gans  s-a-coastal-shoreline-ext) ) ) 
(display  'deta-coast-in-sr-sa-msg  nil)]) 

r' 

(premiss 

'(ask 

s-a-coastal-beach 
deta-beach-do-msg-l 
deta-beach-do-msg-2) ) 

( premiss 

'(ask 

s-a-coastal-beach-r idge 
deta-beach-ridge-do-msg-1 
deta-beach-r idge-do-msg-2) ) 

r 

( premiss 

'(ask 

s-a-coastal -swale-ridge 
deta-swale-do-msg-1 
deta-swale-do-msg-2) ) 

r 

(premiss 

'(ask 

s-a-coastal-sand 
deta-sand-do-msg-1 
deta-sand-do-msg-2) ) 

(premiss 

'(ask 

s-a-coastal-ponded-depression 
deta-ponded-do-msg-1 
deta-ponded-do-msg-2) ) 

(premiss 

'  (ask 

s-a-coastal-i s lands 
deta-island-do-msg-1 
deta-island-do-msg-2) ) 

( premiss 

'(ask 

s-a-coastal-bars 
deta-bar-do-msg-1 
deta-bar-do-msg-2) ) 

c 

(premiss 

'(ask 

s-a-coastal-bed-rock 
d eta-roc  k-do-msg-1 
deta-rock-do-msg-2) ) 

c 

(lisprule  deta-shore-menu  (goal  shore-menu)  -> 

(prog  Call 

(  top  (display  'deta-shore-menu-msg  nil) 

( :  =  al  ( dread ) ) 

(cond  C(memq  al  '(0  nil  no  done)) 

£  (return)  1 

C(memq  al  '(1  b  beach)) 

(display  'deta-shore-beach-msg  nil)l 
(.  C(memq  al  '(2  br  beach-ridge)) 

(display  'deta-shore-beach-r idge-msg  nil)] 

C(memq  al  '(3s  swale)) 

C  (display  'deta-shore-swale-msg  nil)! 

C(memq  al  '(4  sd  sand  sand-dune)) 

(display  'deta-shore-sand-msg  nil)! 

(_  C(memq  al  '(5  p  pd  ponded  ponded-depression )  ) 

(display  'deta-shore-ponded-msg  nil)] 

C(memq  al  '(6  i  island  islands)) 

(_  (display  'deta-shore-island-msg  nil)] 

C(memq  al  '(7  o  off  off-shore-bar  of f-shore-bars  bar  bars)) 
(display  'deta-shore-bar-msg  nil)] 
v.  C(memq  al  '(8  r  rock  rocks)) 

(display  'deta-shore-roc k-msg  nil)] 

Ct  (msg  t  al  "  is  not  a  legal  response" 
t  "Please  try  again"  t)l 


) 

( go  top ) 


DETA.  Li  14 


2— SEP— 1983  11:09 


Page  3 


) 

» 

(lisprule  deta-tidal  (goal  tidal-river)  -> 

(display  'deta-tidal-river-msg  nil) 

(cond  C(is-yes  (dread))  (premiss  '(goal  tidal-menu )) 3 ) 

(display  'deta-tidal-r iver-do-msg  nil) 

( pause ) 

(cond  C(gans  s-a-tidal-river-islands ) 

(display  'deta-tidal-island-do-msg  nil) 

(pause ) 

(display  'deta-tidal-island-do-msg-2  nil)]) 

(display  'deta-nomore-msg  nil) 

) 

f 

(lisprule  deta-tidal-menu  (goal  tidal-menu)  -> 

(prog  Cal] 

top  (display  'deta-tidal-help-msg  nil) 

( : *  al  ( dread ) ) 

(cond  C(memq  al  '(O  nil  go  go-on)) 

(return ) ] 

[(mem q  al  '(1  m  mf  mud  mud-flats)) 

(display  'deta-tidal-mud-msg  nil)] 

C(memq  al  '(2  s  sand  sand-bars  sb)) 

(display  'deta-tidal-sand-msg  nil)] 

C(memq  al  '(3  1  levee  levees)) 

(display  'deta-tidal-levee-msg  nil)] 

C(memq  al  '(4  i  island  islands)) 

(display  'deta-tidal-island-msg  nil)] 

C(memq  al  '(9  t  tidal  tidal-marshes  marsh  marshes)) 
(display  'deta-tidal-marsh-msg  nil)] 

C(memq  al  '(6  r  rock  rocks)) 

(display  'deta-tidal-roc k-msg  nil)] 

Ct  (msg  t  al  "  is  not  a  legal  response" 
t  "Please  try  again"  t)] 

) 

(go  top) 

) 

) 

(p  deta-go-rule 
(goal  deta)  — > 

(make  deta  start) 

(call  display  deta-area-msg ) 

(call  pause) 

) 

9 

(p  deta-stop-rule 
(goal  deta) 

(deta  done)  — > 

(modify  1  ^1  done) 

(remove  2) 

) 

9 

a  WR I TE ( LU ( 2 ) »  5 ) 

(setq  deta-area-msg 

'(t  t  t  t  "  ***********************************************"  t 
"  ***#***#e********AREA  ANALYSIS*****************"  t 
"  a**********************************************"  t  t  t  t 
9  "Me  now  begin  the  detailed  analysis  of  the  study  area. "  t 
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5  "Our  objective  is  to  identify  and  delineate  all"  t 
5  "landforms  in  the  study  area.  The  approach  will  be  to"  t 
5  "identify  and  delineate  the  easily  recognizable  forms"  t 
S  "first.  You  are  encouraged  to  review  the  regional"  t 
5  "summary«  because  that  information  will  guide  our"  t 
5  "detailed  analysis  of  the  study  area. "  t  t 
5  "Take  a  few  minutes  to  acquaint  yourself  with  the"  t 
5  "study  area  using  the  stereoscopic  aerial  photography. "  t  t 
5  "I'll  Wait.  "  t  t  t)  ) 

» 

i  PAUSE  13 

i 

(p  deta-split-rule-l 
(goal  data) 

(deta  start) 

( s-a— coastal-shorel ine  t)  — > 

(modify  2  ~2  shore) 

(call  display  deta-shore-msg-1 ) 

(call  pause) 

) 

i 

(p  deta-split-rule-2 
(goal  deta) 

(deta  start) 

( s-a-coastal-shorel ine  nil) 

( s-r-coastal-shorel ine-ext  t)  — > 

(modify  2  ~2  shore) 

i  (call  display  deta-shore-ext-msg ) 

i  ) 

i  i 

>  (p  deta-sp 1 it-rule-3 
(goal  deta) 

(deta  start) 

( s-a-coastal-shorel ine  nil) 

(s-r-coastal-shoreline-ext  nil) 

(s-a-low-coastal-shoreline  t)  — > 

(modify  2  ^2  shore) 

(call  display  deta-shore-h ide-msg ) 

) 

i 

(p  deta-split-rule-4 
(goal  deta) 

(deta  start) 

( s-a-coastal-shorel ine  nil) 

( s-r-coastal-shorel  ine-ext  «  nil  unasked  ») 
(s-a-low-coastal-shoreline  «  nil  unasked  »)  — > 

(modify  2  **2  tidal-river) 

(call  display  deta-shore-h ide-msg ) 

) 

I 

;  IF ( ISC.  EQ.  1)G0  TO  14 

i  IF(  IRCE.  EQ.  1  )G0  TO  100 

i  IF ( ISLC.  EQ.  1  )G0  TO  120 

;  GO  TO  200 
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i  i  14  MR I TE ( LU ( 2 )  *  15) 

(setq  deta-shore-msg-1 

'<t  t  t  5  "Concentrate  on  the  ocean  shoreline.  Me  want"  t 
5  "to  define  the  land/uiater  boundary  and  then  study  the"  t 
5  "land  area  adjacent  to  the  shoreline  4'o  identify"  t 
5  "landforms  such  as  the  beach>  beach  ridges*  swales*  and" 
5  "sand  dunes.  "  t  t 

5  "Now  draw  the  boundary  line  along  the  coast  separating" 

5  "the  land  and  water.  I'll  wait  till  you  are  done. "  t  t)) 

f 

;  PAUSE  14 

» 

(p  deta-shore-rule-1 
(goal  data) 

(deta  shore)  — > 

(call  display  deta-shore-help-msg ) 

(call  yes-no  shore) 


deta-shore-tal k-rule 
(goal  deta) 

(deta  shore) 

(shore  t)  — > 

(modify  2  ■*2  shore-menu) 
(remove  3) 


deta-sh ore-dr ink-rule 
(goal  deta) 

(deta  shore) 

(shore  nil)  — > 

(modify  2  *2  shore-do) 
(remove  3) 


;  *  20  MR I TE ( LU ( 2 ) .  25 ) 

(setq  deta-shore-help-msg 

'(t  t  5  "Now  we  want  to  identify  and  delineate  landforms"  t 
5  "associated  with  the  coastal  shoreline.  These  landforms" 
5  "will  be  the  beach  area*  beach  ridges*  swales*  sand”  t 
5  "dunes*  ponded  depressions*  islands*  bars*  and  or  rock" 

5  "Do  you  want  background  information  on  any  of  these"  t 
5  "forms?"  t  t)) 

i 

;  READ ( LU ( 1 ) .  8 ) 1 ANSD 

;  8  FORMAT (3A2) 

;  IF  ( I  ANSD.  NE.  IYES)GO  TO  60 


COASTAL  LANDFORM  INFORMATION  MENU 


(p  deta-shore-menu-rule 
(goal  deta) 

(deta  shore-menu)  — > 

(call  display  deta-shore-menu-msg ) 
(make  shore-menu  (accept)) 
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(call  clear) 


i  i  27  WR I TE ( LU ( 2 ) » 30 ) 

(setq  deta-shore-menu-msg 

Mt  t  t  t  t  5  "MENU  FOR  COASTAL  LANDFORM  INFORMATION:" 
10  "O  -  No  more  information  please"  t 
10  "1  -  Beach"  t 

10  "2  -  Beach  Ridge"  t 

10  "3  -  Swale"  t 

10  "4  -  Sand  Dune"  t 

10  "5  -  Ponded  Depression"  t 
10  "6  -  Islands"  t 
10  "7  -  Off-shore  Bars"  t 
10  "8  -  Rock"  t  t 

S  "Type  your  selection  number."  t  t)> 

i  i 

i  (p  deta-shore-menu-done-rule 
>  (goal  deta) 

i  (deta  shore-menu) 

»  (shore-menu  «  0  nil  no  done  »)  — > 

;  (modify  2  ^2  shore-do) 

;  (remove  3) 

j  ) 

f  i 

a  READ ( LU ( 1 ) ,  * ) ICOAST 

ii  00  TO  (35,  40.  45,  50.  130,  135.  140.  145),  ICOAST 


BEACH  INFORMATION 


deta-shore-menu-beach-rule 
(goal  deta) 

(deta  shore-menu) 

(shore-menu  «  1  b  beach  »)  — > 

(call  display  deta-shore-beach-msg ) 
(modify  2  shore-menu) 

(remove  3) 


;  ;  35  UR I TE ( LU ( 2 ) ,  36) 

(setq  deta-shore-beach-msg 

'(t  t  5  "BEACH  -  That  area  of  land  adjacent  to  the" 
5  "shoreline  containing  recently  reworked  coastal 
5  "which  can  be  wetted  by  storm  waves. "  t  t)) 
i  ;  00  TO  55 


BEACH  RIDOE  INFORMATION 
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i  i  40  WRITE ( LU < 2 ) .  41 ) 

(setq  deta-shore-beach-r idge-msg 

Mt  t  5  "BEACH  RIDGE  -  A  ridge  paralleling  the  present  or" 
5  "a  former  shoreline.  Usually  constructed  during  storm" 
5  "periods. "  t  t) ) 
i  i  GO  TO  55 


SWALE  INFORMATION 


deta— shore-men u-sual e-rule 
(goal  deta) 

(deta  shore-menu) 

(shore-menu  «  3  s  suale  »)  — > 

(call  display  deta-shore-suale-msg ) 
(modify  2  A2  shore-menu) 

(remove  3) 


i  i  45  WRITE(LU(2>.  46) 

(setq  deta-shore-suale-msg 

Mt  t  5  "SWALE  -  Local  lou  areas  behind  the  beach  and"  t 
5  "usually  betueen  beach  ridges.  If  the  bottom  of  the"  t 
5  "suale  is  belou  the  uater  table.  the  suale  uill  contain 
5  "brackish  uater  and  marsh  vegetation.”  t  t)) 

}  GO  TO  55 


SAND  DUNE  INFORMATION 


deta-shore-menu-sand-rule 
(goal  deta) 

(deta  shore-menu) 

(shore-menu  «  4  sd  sand  sand-dune  ») 
(call  display  deta-shore-sand-msg ) 
(modify  2  '"2  shore-menu) 

(remove  3) 


i  i  50  WRITE (LU (2) .  51 ) 

(setq  deta-shore-sand-msg 

Mt  t  5  "SAND  DUNE  -  Accumulations  of  uind-uorked  beach 
5  "sand  in  the  form  of  lou  hills,  irregular  ridges,  o 
5  "uhen  large,  cresent  shapes."  t  t)) 

ii  GO  TO  55 


PONDED  DEPRESSION  INFORMATION 


deta-shore-menu-ponded-rul e 
(goal  deta) 

(deta  shore-menu) 

(shore-menu  «  5  p  pd  ponded  p ond ed-d epr es s i on  >>) 
(call  display  deta-shore-ponded-msg ) 
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(modify  2  ■ 
(remove  3) 


shore-menu ) 


130  WRITE ( LU ( 2 )  i  131 ) 

»etq  d eta-sh ore-p ond ed-msg 

Mt  t  5  "  PONDED  DEPRESSION  -  A  large  shallow  ponded"  t 
5  "area  inland  from  beach.  Not  a  swale/  but  usually"  t 
5  "contains  brackish  water  and  marsh  vegetation. "  t  t)) 
GO  TO  55 


ISLAND  INFORMATION 


deta-shore-menu-island-rule 
(goal  deta) 

(deta  shore-menu) 

(shore-menu  «  6  i  island  islands  »>  — > 
(call  display  deta-shore-island-msg ) 
(modify  2  ^2  shore-menu) 

(remove  3) 


ii  135  WRITE(LU(2),  136) 

(setq  deta-shore-island-msg 

'(t  t  5  "  ISLANDS  -  Off-shore  stable  land  areas  that  can 
5  "survive  coastal  storms.  "  t  t)) 
i  ;  GO  TO  55 


OFF-SHORE  BAR  INFORMATION 


(p  deta-shore-menu-bar-rule 
(goal  deta) 

(deta  shore-menu) 

(shore-menu  «  7  o  off  off-shore-bar  off-shore-bars  bar  bars  ») 
(call  display  deta-shore-bar-msg ) 

(modify  2  shore-menu) 

(remove  3) 


i  ;  140  WRITE(LU(2),  141 ) 

(setq  deta-shore-bar-msg 

'(t  t  5  "  OFF-SHORE  BARS  -  Off-shore  deposits  of"  t 

5  "unconsolidated  coastal  materials  subject  to  movement"  t 
5  "during  coastal  storm  periods.  "  t  t)) 
i  ;  GO  TO  55 


ROCK  INFORMATION 


d eta-sh ore -menu-roc  k-rul e 
(goal  deta) 

(deta  shore-menu) 

(shore-menu  <<  8  r  rock  rocks  >>)  — 
(call  display  deta-shore-roc k-msg ) 
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#  (modify  2  ~2  shore-menu) 

#  (remove  3) 

i  ) 

i  i 

i i  145  WR I TE ( LU ( 2 ) *  146) 

(setq  deta-shore-roc k-msg 

'(t  t  5  "ROCK  -  outcropping  bedrock  off-shore  in  the  the"  t 
5  "area  of  the  coastline  features  indicated  above."  t  t)) 

i  i 

»  (p  deta-shore-menu-bad-input-rule 
;  (goal  det a) 

i  (deta  shore-menu) 

;  (shore-menu  <ans>)  — > 

»  (write  (crlf)  <ans>  "  is  not  a  legal  response" 

;  (crlf)  "Please  try  again"  (crlf)) 

i  (call  display  deta-shore-beach-msg ) 

»  (modify  2  -*2  shore-menu) 

;  (remove  3) 

;  ) 

i  i 

i i  55  WRITE(LU(2), 56) 

(setq  deta-ignored-msg 

'(t  t  "  Type  '1'  if  you  want  additional  information  on"  t 
"  coastal  landforms.  otherwise  type  'O'."  t  t)) 

>i  READ(LU( 1 ) >  *) IDO 

i;  IFdDO.EQ.  1)00  TO  27 

»  i 

i  i  - - - * — —————— — - — - — — - — - 

i  i  CONTINUING  WITH  IDENTIFICATION  AND  DELINEATION 

i  «  - - - 

i  i 

i  (p  deta-shore-do-rule-1 
i  'goal  deta) 

i  (deta  shore-do) 

i  ( s-a-coastal-shorel ine  «  nil  unasked  ») 

»  (s-a-coastal-shoreline-ext  «  nil  unasked  »)  — > 
i  (call  display  deta-coast-in-sr-sa-msg ) 

i  (modify  2  ~2  shore-dos) 

i  ) 

i  i 

;(p  deta-shore-do-rule-2 
>  (goal  deta) 

;  (deta  shore-do)  — > 

»  (modify  2  ^2  shore-dos) 

i  ) 

i  i 

a  60  IF ( ISC.  NE.  1 )Q0  TO  70 

ii  IF(ISCE.  NE.  1)00  TO  62 

ii  WR I TE ( LU ( 2 ) <  6 1 ) 

(setq  deta-coast-in-sr-sa-msg 

'(t  t  5  "The  ocean  coastline  exists  both  in  the  study"  t 
5  "region  and  study  area  and  coastal  features  extend"  t 
5  "beyond  the  shoreline."  t  t)) 

#  f 

»  l  — mm— — — —  ————— m—m  —  —  ~  ' 

i i  BEACH  IN  STUDY  AREA? 

i  i  - 

i  i 

i  (p  deta-beach-do-rule-l 
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i  (goal  data) 

;  (data  shore-dos) 

;  (s-a-coastal-shoreline-ext  nil) 
i  ( s-a-coastal-beach  unasked)  — > 

;  (call  display  deta-beach-do-msg-1 ) 

<  (call  yes-no  s-a-coastal-beach ) 

;  (remove  4) 

i  ) 

i  ; 

i  (p  deta-beach-do-rule-2 
;  (goal  deta) 

;  (deta  shore-dos) 

*  ( s-a-coastal-beach  t)  — > 

;  (call  display  deta-beach-do-msg-2) 

i  (call  pause) 

>  ) 

i  t 

a  62  WRITE(LU(2),  63) 

(setq  deta-beach-do-msg-1 

Mt  t  S  "Does  a  beach  exist  in  the  study  area?"  t  t)) 

;;  READ(LU(1). *)IDCB 

ii  IF(IDCB.  NE.  1)00  TO  70 

ii  WR I TE ( LU ( 2 ) <  69 ) 

(setq  deta-beach-do-msg-2 

Mt  t  5  "Delineate  the  beach  zones  in  the  study  area.  "  t 
5  "I'll  wait.  "  t  t)  > 
i  i  PAUSE  15 

i  i 

i  i  - 

i  i  BEACH  RIDGES  IN  STUDY  AREA? 

i  i - - - - - - - - - 

i  i 

i (p  deta-beach-ridge-do-rule-l 
;  (goal  deta) 

<  (deta  shore-dos) 

i  ( s-a-coastal-beach-ridge  unasked)  — > 

<  (call  display  deta-beach-r idge-do-msg-1 ) 

;  (call  yes-no  s-a-coastal-beach-ridge) 

>  (remove  3) 

i  ) 

)  # 

i (p  deta-beach-ridge-do-rule-2 
i  (goal  deta) 

<  (deta  shore-dos) 

*  (s-a-coastal-beach-r idge  t)  — > 

>  (call  display  deta-beach-ridge-do-msg-2) 

>  (call  pause) 

i  ) 

ii  70  WR I TE ( LU ( 2  > »  72 ) 

(setq  deta-beach-r idge-do-msg-1 

Mt  t  5  "Do  beach  ridges  exist  in  the  study  area?"  t  t)) 
ii  READ(LU( 1 ) #  *) IDCBR 

ii  IF( IDCBR.  NE.  1)G0  TO  80 

ii  WRITE(LU(2>,  75) 

(setq  deta-beach-ridge-do-msg-2 

Mt  t  5  "Delineate  the  beach  ridges  in  the  study  area." 

5  "I'll  wait.  "  t  t) ) 

i  i  PAUSE  16 
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SWALES  IN  STUDY  AREA? 


d eta-swale-do-rule-1 
(goal  data) 

(data  shore-dos) 

( s-a-c oasta 1-swa 1 e-r i d g a  unasked)  — > 
(call  display  deta-swale-do-msg-1 ) 
(call  yas-no  s-a-c oasta 1-swale ) 
(remove  3) 


d eta-swale-do-rule-2 
(goal  data) 

(data  shora-dos) 

( s-a-c oasta 1-swale  t)  — > 

(call  display  deta-swale-do-msg-2) 
(call  pause) 


;  ;  80  WRITE(LU(2)>  81) 

(setq  deta-swale-do-msg-1 

'(t  t  9  "Do  swales  exist  in  the  study  area?”  1 
ii  READ ( LU ( 1 ) <  * ) I DCS 

ii  IF  ( IDCS.  NE.  1)00  TO  90 

i  i  WRITE(LU(2)>  89) 

(setq  deta-swale-do-msg-2 

' ( t  t  9  "Delineate  swales  in  the  study  area." 

9  "I'll  wait.  "  t  t) ) 
i  PAUSE  17 


SAND  DUNES  IN  STUDY  AREA? 


deta-sand-do-rule-1 
(goal  deta) 

(deta  shore-dos) 

(s-a-coastal-sand  unasked)  — > 

(call  display  deta-sand-do-msg-1 ) 
(call  yes-no  s-a~coastal-sand ) 
(remove  3) 


d eta-sand-do-rule-2 
(goal  deta) 

(deta  shore-dos) 

(s-a-coastal-sand  t)  — > 

(call  display  deta-sand-do-msg-2) 
(call  pause) 


ii  90  WR I TE ( LU ( 2 ) / 91 ) 

(setq  deta-sand-do-msg-1 

'(t  t  9  "Do  sand  dunes  exist  in  the  study  area?" 
ii  READ(LU( 1 ) .  *> IDCSD 

ii  IF( IDCSD.  NE.  1)00  TO  190 
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ii  WRITE<LU(2) , 95) 

(setq  deta-sand-do-msg-2 
'(t  t  5  "Delineate 
5  "I'll  wait.  "  t 
i  ;  PAUSE  20 


le  sand  dunes  in  the  study  area. " 


PONDED  DEPRESSIONS  IN  STUDY  AREA? 


deta-ponded-do-rule-1 
(goal  data) 

(data  shore-dos) 

( s-a-coastal-ponded-depression  unasked)  — > 
(call  display  deta-ponded-do-msg-1 ) 

(call  yes-no  s-a-coastal-ponded-depression) 
(remove  3) 


d eta-ponded -do-rule-2 
(goal  deta) 

(data  shore-dos) 

( s-a-coastal-ponded-depression  t)  — > 
(call  display  deta-ponded-do-msg-2) 
(call  pause) 


150  WRITE(LU(2),  151) 

■tq.  deta-ponded-do-msg-1 

'(t  t  5  "Are  there  any  ponded  depressions"  t 
5  "in  the  study  area?"  t  t)> 

READ(LUd),  *)IDCPD 
IFdDCPD.  NE.  1)00  TO  155 
WRITE(LU(2).  152) 
stq  deta-ponded-do-msg-2 

Mt  t  5  "Delineate  the  ponded  depressions  in  the  study 
5  "area.  I'll  wait.  "  t  t) ) 

PAUSE  21 


ISLANDS  IN  THE  STUDY  AREA? 


deta-island-do-rule-1 
(goal  deta) 

(deta  shore-dos) 

(s-a-coastal-islands  unasked)  — > 
(call  display  deta-island-do-msg-1 ) 
(call  yes-no  s-a-coastal-islands) 
(remove  3) 


(p  deta-island-do-rule-2 
(goal  deta) 

(deta  shore-dos) 

( s-a-coastal-islands  t)  — > 

(call  display  deta-island-do-msg-2) 
(call  pause) 
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;  i  139 
(setq  da 

'( 


(setq  de 

'( 


WRITE(LU(2) » 156) 
ta-island-do-msg-1 

t  t  3  "Are  any  of  the  coastal  islands"  t 

5  "found  off-shore  in  the  study  area?"  t  t)) 

READ(LU(1), *)IDCI 

IF<IDCI.  NE.  1)00  TO  160 

WRITE (LU(2)« 157) 

ta-island-do-msg-2 

t  t  3  "Delineate  the  island-shoreline  boundary  of 
5  "islands  in  the  study  area.  I'll  wait.  "  t  t)) 
PAUSE  22 


OFF-SHORE  BARS  IN  COASTAL  AREA? 


deta-bar-do-rule-1 
(goal  deta) 

(deta  shore-dos) 

< s-a-coastal-bars  unasked)  — > 
(call  display  deta-bar-do-msg-l ) 
(call  yes-no  s-a-coastal-bars ) 
(remove  3) 


d eta-bar-do-rule-2 
(goal  deta) 

(deta  shore-dos) 

( s-a-coastal-bars  t)  — > 

(call  display  deta-bar-do-msg-2) 
(call  pause) 


ii  160  WRITE(LU(2).  161) 

(setq  deta-bar-do-msg-l 

'(t  t  3  "Do  any  off-shore  bars  exist  in" 
3  "the  study  area?"  t  t)) 
ii  READ(LU( 1 ) »  *) IDCOB 

ii  IF( IDCOB.  NE.  1)00  TO  165 

ii  WRITE(LU(2)> 162) 

(setq  deta-bar-do-msg-2 

'(t  t  5  "Delineate  the  off-shore  bars  in 
3  "I'll  wait.  "  t  t) ) 

i  i  PAUSE  23 


BED  ROCK  IN  THE  COASTAL  AREA? 


deta-rock-do-rule-1 
(goal  deta) 

(deta  shore-dos) 

( s-a-coastal-bed-roc k  unasked)  — > 
(call  display  deta-roc k-do-msg-1 ) 
(call  yes-no  s-a-coastal-bed-roc k ) 
(remove  3) 


te  study  an 
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i  <p  data— rock-do-rule-2 
<  (goal  data) 

;  (data  shore-dos) 

»  (s-a-coastal-bed—rock  t)  — > 

»  (call  display  data— rock-do-msg-2) 

i  (call  pause) 

;  ) 

i  i 

ii  169  WRITE(LU(2>.  166) 

(satq  deta-roc k-do-msg-1 

'(t  t  9  "Is  there  bedrock  in  the  coastal  area?"  t  t)) 
ii  READ(LU( 1 ) i *) IDCRX 

i  i  IF( IDCRX.  NE.  1) GO  TO  100 

ii  WRITE(LU(2),  167) 

(setq  deta-roc k-do-msg-2 

'(t  t  9  "Delineate  the  areas  of  outcropping  bed  rock  in"  t 
9  "the  study  area>  while  I  wait.”  t  t)) 

i i  PAUSE  24 

)  » 

i i  00  TO  200 


COASTLINE  NOT  IN  STUDY  AREA  BUT  COASTAL  FEATURES  ASSOCIATED  WITH 
STUDY  REGION  COASTLINE  EXTENDS  INTO  STUDY  AREA. 


ii  100  WRITE(LU(2). 109) 

(setq  deta-shore-ext-msg 

'(t  t  9  “From  the  regional  analysis  we  determined  that"  t 
9  "an  ocean  coastline  existed  in  the  study  region  but"  t 
9  "not  the  study  area*  however  the  coastal  features"  t 
9  "associated  with  an  ocean  shoreline  are  believed  to"  t 
9  "extend  into  the  study  area.”  t  t)) 
i  i  CO  TO  20 


COASTLINE  NOT  IN  REGION  BUT  COASTLINE  FEATURES  EXPECTED  TO  EXIST 
IN  STUDY  REGION  AND  EXTEND  INTO  STUDY  AREA 


ii  120  WRITE(LU(2). 129) 

(setq  deta-shore-hide-msg 

'(t  t  9  "The  coastline  does  not  exist  in  the  study"  t 
9  "region  but  coastline  features  are  expected  to"  t 
9  "exist  in  the  study  region  and  extend  into  the"  t 
9  "study  area. ”  t  t)) 
i  i  GO  TO  20 

»  i 

i  (p  d*ta-shore-dos-to-tidal-riv*r-rule 
i  (goal  deta) 

i  (deta  shore-dos)  — > 

i  (modify  2  ^2  tidal-river) 

i  ) 

i  i 

i  i  - 

t  i  ***************************************************************** 

ii  TIDAL  RIVER  IN  STUDY  AREA 

i i  a**************************************************************** 

S  l  ——————— — — —————— ———————————— —  — 
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(p  deta-tidal-rule-1 
(goal  deta) 

(data  tidal-river) 

< s-a-tidal-river  t)  — > 

(call  display  deta-tidal-r iver-msg ) 

(call  yes-no  tidal-river) 

) 

i 

(p  deta-no-tidal-rule 
(goal  deta) 

(deta  tidal-river) 

(s-a-tidal-river  nil)  — > 

(modify  2  A2  tidal-river-island) 

) 

i 

(p  deta-tidal-rule-2 
(goal  deta) 

(deta  tidal-river) 

(tidal-river  nil)  — > 

(modify  2  ^2  tidal-river-do) 

(remove  3) 

) 

# 

}  200  IF(ISTR.  NE.  1)00  TO  1000 

»  WRITE(LU(2)» 205) 

(setq  deta-tidal-river-msg 

'(t  t  5  "We  now  want  to  identify  and  delineate  the"  t 
5  "landforms  associated  with  the  tidal  river  in”  t 
5  "the  study  area.  This  will  include  the  river"  t 
5  "shoreline*  mud  flats*  sand  bars*  tidal  marshes* "  t 
5  “natural  levees*  islands*  and  rock. "  t  t 
S  "Do  you  want  background  information  on  any  of  these”  t 
S  "forms?"  t  t)) 
a  READ ( LU ( 1 ) .  8 ) 1 ANSD 

a  IF  ( I  ANSD.  NE.  I  YES)  CO  TO  275 


ii  TIDAL  RIVER  INFORMATION  MENU 


(p  deta-tidal-menu-rule 
(goal  deta) 

(deta  tidal-river) 

(tidal-river  t)  — > 

(call  display  deta-tidal-help-msg ) 

(make  tidal-menu  (accept)) 

(call  clear) 

) 

;  210  WRITE(LU(2).  215) 

(setq  deta-tidal-help-msg 

'(t  t  t  5  "TIDAL  RIVER  LANDFORM  INFORMATION"  t 
10  "0  -  No  more  information"  t 
10  "1  -  Mud  flats"  t 
10  "2  -  Sand  bars"  t 
10  "3  -  Natural  levees"  t 
10  "4  -  Islands"  t 
10  "5  -  Tidal  marshes"  t 
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10  "6  -  Rock"  t  t 
5  "Type  your  selection."  t  t)) 

i  READ ( LU ( 1 ) ,  * ) I R I VER 

;  CO  TO (220»  230,  232,  239,  240,  290),  IRIVER 

(p  deta-tidal-menu-gone-rule 
(goal  deta) 

(data  tidal-river) 

(tidal-river  t) 

(tidal-menu  «  0  go  go-on  »)  — > 

(modify  2  *2  tidal-river-do) 

(remove  3  4) 

) 

« 

j  MUD  FLAT  INFORMATION 


(p  deta-tidal-menu-mud-rule 
(goal  deta) 

(deta  tidal-river) 

(tidal-river  t) 

(tidal-menu  «  1  m  mf  mud  mud— flats  »)  — > 

(call  display  deta-tidal-mud-msg ) 

(modify  3  ~2  t) 

(remove  4) 

) 

i 

i  22 0  WRITE (LU (2),  221 ) 

(set q  deta-tidal-mud-msg 

'(t  t  9  "MUD  FLATS  -  Channel  deposits  of  silts  and  clays"  t 
9  "with  some  sands.  Usually  found  in  channel  areas”  t 
9  "associated  with  slowest  currents.  Will  usually  be"  t 
9  “seen  above  the  water  surface  during  times  of  low”  t 
9  "tide,  but  not  at  high  tide  (consult  tide  tables  for"  t 
9  "information  on  your  particular  river.  "  t  t>) 
a  CO  TO  260 


SAND  BAR  INFORMATION 


(p  deta-tidal-menu-sand-rule 
(goal  deta) 

(deta  tidal-river) 

(tidal-river  t) 

(tidal-menu  «  2  s  sand  sand-bars  sb  »)  — > 

(call  display  deta-tidal-sand-msg ) 

(modify  3  ~2  t) 

(remove  4) 

) 

i  230  WRITE(LU(2),  231) 

(setq  deta-tidal-sand-msg 

Mt  t  9  "SAND  BARS  -  Channel  deposits  of  sandy  and  silty"  t 
9  "sand  materials,  usually  found  near  higher  velocity”  t 
9  "currents.  May  be  exposed  at  low  tide,  but  not  at  high” 
9  "tide.  Consult  the  tide  tables.  ”  t  t)) 
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NATURAL  LEVEE  INFORMATION 


<p  deta-tidal-menu-levee-rule 
(goal  data) 

(data  tidal-river) 

(tidal-river  t) 

(tidal-menu  «  3  1  levee  levees  »)  — > 

(call  display  deta-tidal-levee-msg ) 

(modify  3  t) 
i  (remove  4) 

) 

j 

i  232  MR I TE ( LU ( 2 ) *  233 ) 

(setq  deta-tidal-levee-msg 

'(t  t  5  "NATURAL  LEVEES  -  Generally  fine-grained  and"  t 

5  “unconsolidated  alluvial  material  deposited  at  the  top"  t 
5  "of  the  river  bank  during  flood  overflow  periods.  High"  t 
5  “levee  positions  will  only  be  a  few  inches  to  a  few  feet" 
5  "above  the  surface  further  removed  from  the  river."  t  t)) 
>  >  GO  TO  260 


ISLAND  INFORMATION 


deta-ti da 1-menu-island-rule 
(goal  deta) 

(data  tidal-river) 

(tidal-river  t) 

(tidal-menu  «  4  i  island  islands  »)  — > 
(call  display  deta-tidal-island-msg ) 
(modify  3  ^2  t) 

(remove  4) 


ii  235  MRITE(LU(2).  236) 

(setq  deta-tidal-island-msg 

'(t  t  5  "ISLANDS  -  Stable  land  areas  surrounded  by 
5  "tidal  river  water.  "  t  t)> 
ii  GO  TO  260 


TIDAL  RIVER  MARSH  INFORMATION 


deta-ti dal -menu-marsh-rule 
(goal  deta) 

(deta  tidal-river) 

(tidal-river  t) 

(tidal-menu  «  5  t  tidal  tidal-marshes  marsh  marshes  ») 
(call  display  deta-tidal-marsh-msg ) 

(modify  3  ~2  t) 

(remove  4) 


240  MR  I TE ( LU ( 2 ) »  24 1 ) 
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»  v  v 


i i  MORE  INFORMATION? 


u  260  WRITE(LU(2),261) 

(setq  deta-ignored-msg-2 

'(t  t  5  "Type  '  1 '  if  you  want  information  on  other 
S  "tidal  river  forms#  otherwise  type  'O'.  "  t  t)) 
ii  READ  <  LU  < 1 ) *  * ) MORE 

ii  IF  (MORE.  EQ.  1  )GQ  TO  210 


IF<  I  FLAG.  EQ.  1)00  TO  285 


DELINEATION  OF  TIDAL  RIVER  FEATURES 


(p  deta-tidal-do-rule 
(goal  deta) 

(deta  tidal-river-do)  — > 

(call  display  deta-tidal-river-do-msg ) 
(call  pause) 

(modify  2  ~2  tidal-river-island) 


n  275  WRITE(LU(2),  276) 

(setq  deta-tidal-river-do-msg 

'(t  t  5  "A  tidal  river  exists  in  the  study  area  and  we  need 
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5  "to  draui  a  boundary  line  along  its  shoreline.  The  object"  t 
5  "uill  be  to  delineate  the  boundary  between  the  tidal"  t 
5  "river  and  all  other  patterns  of  the  island."  t  t 
5  "Now  draw  the  boundary  line  while  I  wait.  ”  t  t>) 

i  i 

i  i  PAUSE  30 

i  * 

ii  280  WRITE(LU(2).  281 ) 

(setq  deta-ignored-msg-3 

'  <  t  t  5  "We  now  want  to  delineate  the  terrain  units"  t 
5  "associated  with  the  tidal  river.  These  include  mud"  t 
5  "flats!  sand  bars#  natural  levees>  islands#  tidal"  t 
5  "marshes#  and  rock  in  the  channel."  t 

5  "Do  you  want  background  information  on  any  of  these"  t 
5  "terrain  units  now?"  t  t>) 

a  READ(LU( 1 )  #  8) IANSD 

i  #  I FLAG— 1 

ii  IF ( IANSD.  EQ.  I YES )G0  TO  210 


DELINEATE  ISLANDS  IN  THE  STUDY  AREA 


;  285  IFdSTRI.NE.  1)00  TO  998 

i 

(p  deta-tidal-island-rule 
(goal  deta) 

(deta  tidal-river-island ) 

( s-a-tidal-river-islands  t)  — > 

(call  display  deta-tidal-island-do-msg ) 
(call  pause) 

(call  display  deta-tidal-island-do-msg-2) 
(call  display  deta-nomore-msg ) 

(modify  2  ~2  done) 


a  WRITE(LU(2>,  286) 

(setq  deta-tidal-i sland-do-msg 

'(t  t  5  ”We  now  want  to  delineate  the  island  or  islands”  t 
5  "that  were  found  in  the  study  area  portion  of  the  tidal 
5  "river.  First  draw  a  boundary  between  the  tidal  river" 

5  "and  the  other  patterns  of  an  island  and  repeat  for  all 
5  "islands.  I'll  wait."  t  t)) 


PAUSE  31 


ii  WRITE(LU(2).  287) 

(setq  deta-tidal-island-do-msg-2 

'(t  t  5  "Before  leaving  the  island/islands#  scan  the  area" 
5  "inside  your  island  boundary.  We  will  ask  if  other”  t 
5  "terrain  units#  such  as  levees#  terraces#  and/or  rock" 
5  "should  be  delineated."  t  t)) 

9 

(p  deta-tidal-island-rule-2 
(goal  deta) 

(deta  tidal-river-island) 

(s-a-tidal-river-islands  «  unasked  nil  »)  — > 

(call  display  deta-nomore-msg) 

(modify  2  done) 
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i  ) 

i  i 

ii  998  WRITE(LU(2),  999) 

(setq  deta-nomore-msg 

Mt  t  10  "THAT'S  ALL  THERE  IS  AT  THIS  TIME.  "  t  t  t>) 

i  i 
»  i 
i  i 

i  ;  RETURN  TO  EXECUTIVE  PROGRAM 

i  i  - - — — — — — — 

i  $ 

a  1000  CALL  EXEC (8, ICALAP) 

i  i 

;  i  END 

( terpr ) 

(princ  "DETA.  L  Loaded") 

( terpr ) 


